/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol112 / bmenu.lbr

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 01 00 |.       |    ....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 42 4d 45 4e 55 20 20 | 20 42 41 53 01 00 27 00 |.BMENU  | BAS..'.|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 42 4d 45 4e 55 20 20 | 20 44 51 43 29 00 16 00 |.BMENU  | DQC)...|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 42 4d 45 4e 55 44 20 | 20 42 41 53 40 00 1e 00 |.BMENUD | BAS@...|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 31 30 20 27 0d 0a 32 30 | 20 27 20 44 4f 20 4e 4f |10 '..20| ' DO NO|
|00000090| 54 20 52 45 4e 55 4d 20 | 4f 52 20 52 45 4e 41 4d |T RENUM |OR RENAM|
|000000a0| 45 20 4f 52 20 43 4f 4d | 50 49 4c 45 20 54 48 49 |E OR COM|PILE THI|
|000000b0| 53 20 50 52 4f 47 52 41 | 4d 2e 0d 0a 33 30 20 27 |S PROGRA|M...30 '|
|000000c0| 0d 0a 34 30 20 27 20 42 | 41 53 49 43 20 4d 45 4e |..40 ' B|ASIC MEN|
|000000d0| 55 20 50 52 4f 47 52 41 | 4d 2e 20 56 45 52 53 49 |U PROGRA|M. VERSI|
|000000e0| 4f 4e 20 31 2e 30 0d 0a | 35 30 20 27 20 41 20 4d |ON 1.0..|50 ' A M|
|000000f0| 41 58 49 4d 55 4d 20 4f | 46 20 31 31 32 20 42 41 |AXIMUM O|F 112 BA|
|00000100| 53 49 43 20 46 49 4c 45 | 53 20 57 49 4c 4c 20 42 |SIC FILE|S WILL B|
|00000110| 45 20 48 41 4e 44 4c 45 | 44 20 42 59 20 54 48 49 |E HANDLE|D BY THI|
|00000120| 53 20 50 52 4f 47 52 41 | 4d 2e 0d 0a 36 30 20 27 |S PROGRA|M...60 '|
|00000130| 20 53 45 45 20 42 4d 45 | 4e 55 2e 44 4f 43 20 46 | SEE BME|NU.DOC F|
|00000140| 4f 52 20 4d 4f 52 45 20 | 49 4e 46 4f 52 4d 41 54 |OR MORE |INFORMAT|
|00000150| 49 4f 4e 2e 20 42 4f 42 | 20 53 54 45 50 48 45 4e |ION. BOB| STEPHEN|
|00000160| 53 20 20 53 41 4e 20 4a | 4f 53 45 20 31 32 2f 31 |S  SAN J|OSE 12/1|
|00000170| 2f 38 32 0d 0a 37 30 20 | 44 45 46 49 4e 54 20 41 |/82..70 |DEFINT A|
|00000180| 2d 5a 3a 44 49 4d 20 41 | 52 52 41 59 24 28 31 31 |-Z:DIM A|RRAY$(11|
|00000190| 33 29 0d 0a 38 30 20 44 | 45 46 20 53 45 47 3d 30 |3)..80 D|EF SEG=0|
|000001a0| 3a 4d 4e 3d 50 45 45 4b | 28 26 48 34 31 30 29 20 |:MN=PEEK|(&H410) |
|000001b0| 41 4e 44 20 26 48 33 30 | 3a 49 46 20 4d 4e 3d 26 |AND &H30|:IF MN=&|
|000001c0| 48 33 30 20 54 48 45 4e | 20 4d 4e 3d 31 20 45 4c |H30 THEN| MN=1 EL|
|000001d0| 53 45 20 4d 4e 3d 30 0d | 0a 39 30 20 53 43 52 45 |SE MN=0.|.90 SCRE|
|000001e0| 45 4e 20 30 3a 49 46 20 | 4d 4e 3d 30 20 54 48 45 |EN 0:IF |MN=0 THE|
|000001f0| 4e 20 43 4f 4c 4f 52 20 | 31 34 2c 31 2c 34 20 45 |N COLOR |14,1,4 E|
|00000200| 4c 53 45 20 43 4f 4c 4f | 52 20 37 2c 30 0d 0a 31 |LSE COLO|R 7,0..1|
|00000210| 31 30 20 4b 45 59 20 4f | 46 46 20 3a 4b 45 59 20 |10 KEY O|FF :KEY |
|00000220| 31 30 2c 22 52 55 4e 22 | 2b 43 48 52 24 28 33 34 |10,"RUN"|+CHR$(34|
|00000230| 29 2b 22 42 4d 45 4e 55 | 22 2b 43 48 52 24 28 31 |)+"BMENU|"+CHR$(1|
|00000240| 33 29 0d 0a 31 32 30 20 | 4b 45 59 20 31 2c 22 55 |3)..120 |KEY 1,"U|
|00000250| 50 44 41 54 45 22 3a 4b | 45 59 20 32 2c 22 48 45 |PDATE":K|EY 2,"HE|
|00000260| 4c 50 22 3a 4b 45 59 20 | 33 2c 22 42 41 53 49 43 |LP":KEY |3,"BASIC|
|00000270| 22 3a 4b 45 59 20 34 2c | 22 44 4f 53 22 3a 4b 45 |":KEY 4,|"DOS":KE|
|00000280| 59 20 35 2c 22 44 41 54 | 45 22 0d 0a 31 33 30 20 |Y 5,"DAT|E"..130 |
|00000290| 4b 45 59 28 31 29 20 4f | 4e 3a 4b 45 59 28 32 29 |KEY(1) O|N:KEY(2)|
|000002a0| 20 4f 4e 3a 4b 45 59 28 | 33 29 20 4f 4e 3a 4b 45 | ON:KEY(|3) ON:KE|
|000002b0| 59 28 34 29 20 4f 4e 3a | 4b 45 59 28 35 29 20 4f |Y(4) ON:|KEY(5) O|
|000002c0| 4e 0d 0a 31 34 30 20 4f | 4e 20 4b 45 59 28 31 29 |N..140 O|N KEY(1)|
|000002d0| 20 47 4f 53 55 42 20 31 | 32 31 30 3a 4f 4e 20 4b | GOSUB 1|210:ON K|
|000002e0| 45 59 28 32 29 20 47 4f | 53 55 42 20 31 36 37 30 |EY(2) GO|SUB 1670|
|000002f0| 3a 4f 4e 20 4b 45 59 28 | 33 29 20 47 4f 53 55 42 |:ON KEY(|3) GOSUB|
|00000300| 20 31 37 33 30 0d 0a 31 | 35 30 20 4f 4e 20 4b 45 | 1730..1|50 ON KE|
|00000310| 59 28 34 29 20 47 4f 53 | 55 42 20 31 37 34 30 3a |Y(4) GOS|UB 1740:|
|00000320| 4f 4e 20 4b 45 59 28 35 | 29 20 47 4f 53 55 42 20 |ON KEY(5|) GOSUB |
|00000330| 31 37 32 30 3a 4b 45 59 | 20 4f 4e 0d 0a 31 36 30 |1720:KEY| ON..160|
|00000340| 20 27 20 54 48 45 20 46 | 4f 4c 4c 4f 57 49 4e 47 | ' THE F|OLLOWING|
|00000350| 20 53 54 41 54 45 4d 45 | 4e 54 53 20 57 49 4c 4c | STATEME|NTS WILL|
|00000360| 20 42 45 20 4d 4f 44 49 | 46 49 45 44 20 57 49 54 | BE MODI|FIED WIT|
|00000370| 48 20 46 31 0d 0a 35 30 | 30 20 27 42 45 47 49 4e |H F1..50|0 'BEGIN|
|00000380| 0d 0a 35 30 35 20 4b 45 | 59 20 4f 46 46 0d 0a 35 |..505 KE|Y OFF..5|
|00000390| 31 30 20 43 4c 53 3a 43 | 4f 4c 4f 52 20 30 2c 37 |10 CLS:C|OLOR 0,7|
|000003a0| 3a 20 50 52 49 4e 54 20 | 22 20 20 20 20 20 20 20 |: PRINT |"       |
|000003b0| 20 20 50 52 4f 47 52 41 | 4d 20 49 4e 46 4f 52 4d |  PROGRA|M INFORM|
|000003c0| 41 54 49 4f 4e 20 20 20 | 20 20 20 20 20 20 22 3a |ATION   |      ":|
|000003d0| 43 4f 4c 4f 52 20 37 2c | 30 0d 0a 35 32 30 20 50 |COLOR 7,|0..520 P|
|000003e0| 52 49 4e 54 20 22 54 68 | 69 73 20 70 72 6f 67 72 |RINT "Th|is progr|
|000003f0| 61 6d 20 70 72 6f 76 69 | 64 65 73 20 61 20 73 6f |am provi|des a so|
|00000400| 72 74 65 64 20 6d 65 6e | 75 22 0d 0a 35 33 30 20 |rted men|u"..530 |
|00000410| 50 52 49 4e 54 20 22 64 | 69 73 70 6c 61 79 20 6f |PRINT "d|isplay o|
|00000420| 66 20 74 68 65 20 42 41 | 53 49 43 20 70 72 6f 67 |f the BA|SIC prog|
|00000430| 72 61 6d 73 20 6f 6e 20 | 79 6f 75 72 22 0d 0a 35 |rams on |your"..5|
|00000440| 34 30 20 50 52 49 4e 54 | 20 22 64 69 73 6b 65 74 |40 PRINT| "disket|
|00000450| 74 65 20 61 6e 64 20 61 | 6c 6c 6f 77 73 20 66 6f |te and a|llows fo|
|00000460| 72 20 6d 65 6e 75 20 73 | 65 6c 65 63 74 65 64 22 |r menu s|elected"|
|00000470| 0d 0a 35 35 30 20 50 52 | 49 4e 54 20 22 65 78 65 |..550 PR|INT "exe|
|00000480| 63 75 74 69 6f 6e 20 6f | 66 20 74 68 65 20 42 41 |cution o|f the BA|
|00000490| 53 49 43 20 70 72 6f 67 | 72 61 6d 73 2e 22 0d 0a |SIC prog|rams."..|
|000004a0| 35 36 30 20 50 52 49 4e | 54 20 22 20 22 0d 0a 35 |560 PRIN|T " "..5|
|000004b0| 37 30 20 50 52 49 4e 54 | 20 22 46 75 6e 63 74 69 |70 PRINT| "Functi|
|000004c0| 6f 6e 20 6b 65 79 20 46 | 31 20 69 73 20 75 73 65 |on key F|1 is use|
|000004d0| 64 20 77 68 65 6e 65 76 | 65 72 20 42 41 53 49 43 |d whenev|er BASIC|
|000004e0| 22 0d 0a 35 38 30 20 50 | 52 49 4e 54 20 22 70 72 |"..580 P|RINT "pr|
|000004f0| 6f 67 72 61 6d 73 20 61 | 72 65 20 61 64 64 65 64 |ograms a|re added|
|00000500| 20 6f 72 20 64 65 6c 65 | 74 65 64 20 66 72 6f 6d | or dele|ted from|
|00000510| 20 74 68 65 22 0d 0a 35 | 39 30 20 50 52 49 4e 54 | the"..5|90 PRINT|
|00000520| 20 22 64 69 73 6b 65 74 | 74 65 2e 20 57 68 69 6c | "disket|te. Whil|
|00000530| 65 20 46 31 20 69 73 20 | 73 6c 6f 77 20 74 6f 22 |e F1 is |slow to"|
|00000540| 0d 0a 36 30 30 20 50 52 | 49 4e 54 20 22 65 78 65 |..600 PR|INT "exe|
|00000550| 63 75 74 65 20 74 68 65 | 20 72 65 73 75 6c 74 20 |cute the| result |
|00000560| 77 69 6c 6c 20 62 65 20 | 61 20 68 69 67 68 22 0d |will be |a high".|
|00000570| 0a 36 31 30 20 50 52 49 | 4e 54 20 22 70 65 72 66 |.610 PRI|NT "perf|
|00000580| 6f 72 6d 61 6e 63 65 20 | 28 66 6f 72 20 42 41 53 |ormance |(for BAS|
|00000590| 49 43 29 20 6d 65 6e 75 | 20 70 72 6f 67 72 61 6d |IC) menu| program|
|000005a0| 2e 22 0d 0a 36 32 30 20 | 50 52 49 4e 54 20 22 46 |."..620 |PRINT "F|
|000005b0| 31 20 77 69 6c 6c 20 63 | 72 65 61 74 65 20 61 6e |1 will c|reate an|
|000005c0| 64 20 6b 69 6c 6c 20 66 | 69 6c 65 22 0d 0a 36 33 |d kill f|ile"..63|
|000005d0| 30 20 50 52 49 4e 54 20 | 22 42 4d 45 4e 55 2e 54 |0 PRINT |"BMENU.T|
|000005e0| 4d 50 20 61 6e 64 20 77 | 69 6c 6c 20 6d 6f 64 69 |MP and w|ill modi|
|000005f0| 66 79 20 69 74 73 65 6c | 66 2e 22 0d 0a 36 34 30 |fy itsel|f."..640|
|00000600| 20 50 52 49 4e 54 20 22 | 42 65 20 73 75 72 65 20 | PRINT "|Be sure |
|00000610| 74 68 65 20 64 65 66 61 | 75 6c 74 20 64 72 69 76 |the defa|ult driv|
|00000620| 65 20 28 73 65 74 20 62 | 79 20 44 4f 53 29 22 0d |e (set b|y DOS)".|
|00000630| 0a 36 35 30 20 50 52 49 | 4e 54 20 22 69 73 20 74 |.650 PRI|NT "is t|
|00000640| 68 65 20 73 61 6d 65 20 | 61 73 20 74 68 65 20 64 |he same |as the d|
|00000650| 72 69 76 65 20 63 6f 6e | 74 61 69 6e 69 6e 67 22 |rive con|taining"|
|00000660| 0d 0a 36 36 30 20 50 52 | 49 4e 54 20 22 74 68 65 |..660 PR|INT "the|
|00000670| 20 6d 65 6e 75 20 70 72 | 6f 67 72 61 6d 2e 20 53 | menu pr|ogram. S|
|00000680| 65 65 20 42 4d 45 4e 55 | 2e 44 4f 43 2e 22 0d 0a |ee BMENU|.DOC."..|
|00000690| 36 37 30 20 50 52 49 4e | 54 0d 0a 36 38 30 20 43 |670 PRIN|T..680 C|
|000006a0| 4f 4c 4f 52 20 30 2c 37 | 3a 50 52 49 4e 54 20 22 |OLOR 0,7|:PRINT "|
|000006b0| 44 6f 20 6e 6f 74 20 72 | 65 6e 75 6d 20 6f 72 20 |Do not r|enum or |
|000006c0| 63 68 61 6e 67 65 20 74 | 68 65 20 6e 61 6d 65 20 |change t|he name |
|000006d0| 6f 66 20 74 68 69 73 22 | 0d 0a 36 39 30 20 50 52 |of this"|..690 PR|
|000006e0| 49 4e 54 20 22 70 72 6f | 67 72 61 6d 2e 20 54 68 |INT "pro|gram. Th|
|000006f0| 69 73 20 6d 65 73 73 61 | 67 65 20 77 69 6c 6c 20 |is messa|ge will |
|00000700| 73 65 6c 66 20 20 20 20 | 20 20 20 20 22 0d 0a 37 |self    |    "..7|
|00000710| 30 30 20 50 52 49 4e 54 | 20 22 64 65 73 74 72 75 |00 PRINT| "destru|
|00000720| 63 74 20 28 66 6f 72 65 | 76 65 72 29 20 77 68 65 |ct (fore|ver) whe|
|00000730| 6e 20 79 6f 75 20 45 4e | 54 45 52 2e 20 20 20 20 |n you EN|TER.    |
|00000740| 20 22 3a 43 4f 4c 4f 52 | 20 37 2c 30 3a 50 52 49 | ":COLOR| 7,0:PRI|
|00000750| 4e 54 0d 0a 37 31 30 20 | 50 52 49 4e 54 20 22 20 |NT..710 |PRINT " |
|00000760| 20 20 20 20 20 20 20 20 | 20 42 4f 42 20 53 54 45 |        | BOB STE|
|00000770| 50 48 45 4e 53 20 53 41 | 4e 20 4a 4f 53 45 20 31 |PHENS SA|N JOSE 1|
|00000780| 32 2f 31 2f 38 32 22 0d | 0a 37 32 30 20 50 52 49 |2/1/82".|.720 PRI|
|00000790| 4e 54 0d 0a 37 33 30 20 | 49 4e 50 55 54 20 22 50 |NT..730 |INPUT "P|
|000007a0| 72 65 73 73 20 45 4e 54 | 45 52 20 74 6f 20 63 6f |ress ENT|ER to co|
|000007b0| 6e 74 69 6e 75 65 2e 2e | 2e 22 2c 41 24 0d 0a 37 |ntinue..|.",A$..7|
|000007c0| 34 30 20 47 4f 54 4f 20 | 31 32 31 30 0d 0a 39 39 |40 GOTO |1210..99|
|000007d0| 39 20 27 20 45 4e 44 0d | 0a 31 30 30 30 20 27 20 |9 ' END.|.1000 ' |
|000007e0| 45 4e 44 20 4f 46 20 4d | 4f 44 49 46 49 45 44 20 |END OF M|ODIFIED |
|000007f0| 41 52 45 41 0d 0a 31 30 | 30 35 20 43 4c 53 3a 49 |AREA..10|05 CLS:I|
|00000800| 46 20 41 52 52 41 59 24 | 28 36 34 29 3d 22 22 20 |F ARRAY$|(64)="" |
|00000810| 54 48 45 4e 20 57 49 44 | 54 48 20 34 30 20 45 4c |THEN WID|TH 40 EL|
|00000820| 53 45 20 57 49 44 54 48 | 20 38 30 0d 0a 31 30 31 |SE WIDTH| 80..101|
|00000830| 30 20 50 3d 30 3a 49 3d | 30 3a 43 4c 53 3a 4c 4f |0 P=0:I=|0:CLS:LO|
|00000840| 43 41 54 45 20 31 2c 34 | 3a 43 4f 4c 4f 52 20 31 |CATE 1,4|:COLOR 1|
|00000850| 34 2c 30 0d 0a 31 30 32 | 30 20 50 52 49 4e 54 20 |4,0..102|0 PRINT |
|00000860| 22 42 41 53 49 43 20 70 | 72 6f 67 72 61 6d 73 20 |"BASIC p|rograms |
|00000870| 6f 6e 20 74 68 69 73 20 | 64 69 73 6b 65 74 74 65 |on this |diskette|
|00000880| 3a 22 0d 0a 31 30 33 30 | 20 46 4f 52 20 44 43 3d |:"..1030| FOR DC=|
|00000890| 31 20 54 4f 20 36 36 20 | 53 54 45 50 20 31 33 0d |1 TO 66 |STEP 13.|
|000008a0| 0a 31 30 34 30 20 20 46 | 4f 52 20 44 52 3d 33 20 |.1040  F|OR DR=3 |
|000008b0| 54 4f 20 32 33 0d 0a 31 | 30 35 30 20 20 20 49 3d |TO 23..1|050   I=|
|000008c0| 49 2b 31 0d 0a 31 30 36 | 30 20 20 20 49 46 20 41 |I+1..106|0   IF A|
|000008d0| 52 52 41 59 24 28 49 29 | 3d 22 22 20 54 48 45 4e |RRAY$(I)|="" THEN|
|000008e0| 20 31 31 33 30 20 45 4c | 53 45 20 4c 4f 43 41 54 | 1130 EL|SE LOCAT|
|000008f0| 45 20 44 52 2c 44 43 0d | 0a 31 30 37 30 20 20 20 |E DR,DC.|.1070   |
|00000900| 49 46 20 4d 4e 3d 31 20 | 54 48 45 4e 20 43 4f 4c |IF MN=1 |THEN COL|
|00000910| 4f 52 20 30 2c 37 20 45 | 4c 53 45 20 43 4f 4c 4f |OR 0,7 E|LSE COLO|
|00000920| 52 20 31 2c 31 34 2c 34 | 0d 0a 31 30 38 30 20 20 |R 1,14,4|..1080  |
|00000930| 20 50 52 49 4e 54 20 55 | 53 49 4e 47 20 22 23 23 | PRINT U|SING "##|
|00000940| 23 22 3b 49 3b 0d 0a 31 | 30 39 30 20 20 20 49 46 |#";I;..1|090   IF|
|00000950| 20 4d 4e 3d 31 20 54 48 | 45 4e 20 43 4f 4c 4f 52 | MN=1 TH|EN COLOR|
|00000960| 20 37 2c 30 20 45 4c 53 | 45 20 43 4f 4c 4f 52 20 | 7,0 ELS|E COLOR |
|00000970| 31 34 2c 31 2c 34 0d 0a | 31 31 30 30 20 20 20 50 |14,1,4..|1100   P|
|00000980| 52 49 4e 54 20 22 20 22 | 3b 41 52 52 41 59 24 28 |RINT " "|;ARRAY$(|
|00000990| 49 29 0d 0a 31 31 31 30 | 20 20 4e 45 58 54 20 44 |I)..1110|  NEXT D|
|000009a0| 52 0d 0a 31 31 32 30 20 | 4e 45 58 54 20 44 43 0d |R..1120 |NEXT DC.|
|000009b0| 0a 31 31 33 30 20 4c 4f | 43 41 54 45 20 32 34 2c |.1130 LO|CATE 24,|
|000009c0| 31 2c 31 2c 37 2c 31 31 | 3a 50 52 49 4e 54 20 22 |1,1,7,11|:PRINT "|
|000009d0| 45 6e 74 65 72 20 6e 75 | 6d 62 65 72 20 6f 66 20 |Enter nu|mber of |
|000009e0| 70 72 6f 67 72 61 6d 20 | 64 65 73 69 72 65 64 3a |program |desired:|
|000009f0| 20 22 3b 3a 42 24 3d 22 | 22 0d 0a 31 31 34 30 20 | ";:B$="|"..1140 |
|00000a00| 41 24 3d 49 4e 4b 45 59 | 24 3a 49 46 20 41 24 3d |A$=INKEY|$:IF A$=|
|00000a10| 22 22 20 54 48 45 4e 20 | 31 31 34 30 20 45 4c 53 |"" THEN |1140 ELS|
|00000a20| 45 20 49 46 20 41 53 43 | 28 41 24 29 3d 31 33 20 |E IF ASC|(A$)=13 |
|00000a30| 54 48 45 4e 20 31 31 36 | 30 0d 0a 31 31 35 30 20 |THEN 116|0..1150 |
|00000a40| 49 46 20 28 41 53 43 28 | 41 24 29 3c 34 38 29 20 |IF (ASC(|A$)<48) |
|00000a50| 4f 52 20 28 41 53 43 28 | 41 24 29 3e 35 37 29 20 |OR (ASC(|A$)>57) |
|00000a60| 54 48 45 4e 20 31 31 33 | 30 20 45 4c 53 45 20 50 |THEN 113|0 ELSE P|
|00000a70| 52 49 4e 54 20 41 24 3b | 3a 42 24 3d 42 24 2b 41 |RINT A$;|:B$=B$+A|
|00000a80| 24 3a 47 4f 54 4f 20 31 | 31 34 30 0d 0a 31 31 36 |$:GOTO 1|140..116|
|00000a90| 30 20 50 3d 56 41 4c 28 | 42 24 29 3a 49 46 20 50 |0 P=VAL(|B$):IF P|
|00000aa0| 20 3c 20 31 20 4f 52 20 | 50 20 3e 3d 20 49 20 54 | < 1 OR |P >= I T|
|00000ab0| 48 45 4e 20 31 36 30 0d | 0a 31 31 37 30 20 57 49 |HEN 160.|.1170 WI|
|00000ac0| 44 54 48 20 38 30 3a 43 | 4c 53 3a 50 52 49 4e 54 |DTH 80:C|LS:PRINT|
|00000ad0| 20 22 50 72 65 73 73 20 | 46 31 30 20 74 6f 20 72 | "Press |F10 to r|
|00000ae0| 65 74 75 72 6e 20 74 6f | 20 6d 65 6e 75 20 77 68 |eturn to| menu wh|
|00000af0| 65 6e 20 66 69 6e 69 73 | 68 65 64 22 0d 0a 31 31 |en finis|hed"..11|
|00000b00| 38 30 20 50 52 49 4e 54 | 20 22 6f 72 20 65 6e 74 |80 PRINT| "or ent|
|00000b10| 65 72 20 52 55 4e 22 3b | 3a 50 52 49 4e 54 20 43 |er RUN";|:PRINT C|
|00000b20| 48 52 24 28 33 34 29 3b | 3a 50 52 49 4e 54 20 22 |HR$(34);|:PRINT "|
|00000b30| 42 4d 45 4e 55 20 69 66 | 20 46 31 30 20 69 73 20 |BMENU if| F10 is |
|00000b40| 63 68 61 6e 67 65 64 2e | 22 0d 0a 31 31 39 30 20 |changed.|"..1190 |
|00000b50| 47 4f 53 55 42 20 31 36 | 35 30 3a 4f 4e 20 45 52 |GOSUB 16|50:ON ER|
|00000b60| 52 4f 52 20 47 4f 54 4f | 20 31 37 35 30 3a 52 55 |ROR GOTO| 1750:RU|
|00000b70| 4e 20 41 52 52 41 59 24 | 28 50 29 0d 0a 31 32 30 |N ARRAY$|(P)..120|
|00000b80| 30 20 27 20 4d 45 4e 55 | 20 55 50 44 41 54 45 20 |0 ' MENU| UPDATE |
|00000b90| 41 52 45 41 0d 0a 31 32 | 31 30 20 57 49 44 54 48 |AREA..12|10 WIDTH|
|00000ba0| 20 38 30 3a 4f 4e 20 45 | 52 52 4f 52 20 47 4f 54 | 80:ON E|RROR GOT|
|00000bb0| 4f 20 31 36 32 30 0d 0a | 31 32 32 30 20 4b 49 4c |O 1620..|1220 KIL|
|00000bc0| 4c 20 22 42 4d 45 4e 55 | 2e 54 4d 50 22 0d 0a 31 |L "BMENU|.TMP"..1|
|00000bd0| 32 33 30 20 4f 4e 20 45 | 52 52 4f 52 20 47 4f 54 |230 ON E|RROR GOT|
|00000be0| 4f 20 30 0d 0a 31 32 34 | 30 20 43 4c 53 3a 46 49 |O 0..124|0 CLS:FI|
|00000bf0| 4c 45 53 20 22 2a 2e 42 | 41 53 22 3a 41 52 3d 30 |LES "*.B|AS":AR=0|
|00000c00| 0d 0a 31 32 35 30 20 50 | 52 49 4e 54 3a 50 52 49 |..1250 P|RINT:PRI|
|00000c10| 4e 54 3a 50 52 49 4e 54 | 20 22 52 65 61 64 69 6e |NT:PRINT| "Readin|
|00000c20| 67 20 66 69 6c 65 73 22 | 3a 50 52 49 4e 54 0d 0a |g files"|:PRINT..|
|00000c30| 31 32 36 30 20 46 4f 52 | 20 49 3d 31 20 54 4f 20 |1260 FOR| I=1 TO |
|00000c40| 31 31 33 0d 0a 31 32 37 | 30 20 20 41 52 52 41 59 |113..127|0  ARRAY|
|00000c50| 24 28 49 29 3d 22 22 0d | 0a 31 32 38 30 20 4e 45 |$(I)="".|.1280 NE|
|00000c60| 58 54 20 49 0d 0a 31 32 | 39 30 20 46 4f 52 20 44 |XT I..12|90 FOR D|
|00000c70| 52 3d 31 20 54 4f 20 32 | 34 0d 0a 31 33 30 30 20 |R=1 TO 2|4..1300 |
|00000c80| 20 46 4f 52 20 44 43 3d | 30 20 54 4f 20 36 35 20 | FOR DC=|0 TO 65 |
|00000c90| 53 54 45 50 20 31 33 0d | 0a 31 33 31 30 20 20 20 |STEP 13.|.1310   |
|00000ca0| 49 46 20 43 48 52 24 28 | 53 43 52 45 45 4e 28 44 |IF CHR$(|SCREEN(D|
|00000cb0| 52 2c 44 43 2b 31 29 29 | 20 3d 20 22 20 22 20 54 |R,DC+1))| = " " T|
|00000cc0| 48 45 4e 20 31 33 39 30 | 0d 0a 31 33 32 30 20 20 |HEN 1390|..1320  |
|00000cd0| 20 41 52 3d 41 52 2b 31 | 3a 49 46 20 41 52 3d 31 | AR=AR+1|:IF AR=1|
|00000ce0| 31 33 20 54 48 45 4e 20 | 50 52 49 4e 54 20 22 54 |13 THEN |PRINT "T|
|00000cf0| 6f 20 6d 61 6e 79 20 66 | 69 6c 65 73 22 3a 45 4e |o many f|iles":EN|
|00000d00| 44 0d 0a 31 33 33 30 20 | 20 20 46 4f 52 20 4c 3d |D..1330 |  FOR L=|
|00000d10| 31 20 54 4f 20 38 0d 0a | 31 33 34 30 20 20 20 20 |1 TO 8..|1340    |
|00000d20| 41 52 52 41 59 24 28 41 | 52 29 3d 41 52 52 41 59 |ARRAY$(A|R)=ARRAY|
|00000d30| 24 28 41 52 29 2b 43 48 | 52 24 28 53 43 52 45 45 |$(AR)+CH|R$(SCREE|
|00000d40| 4e 28 44 52 2c 44 43 2b | 4c 29 29 0d 0a 31 33 35 |N(DR,DC+|L))..135|
|00000d50| 30 20 20 20 4e 45 58 54 | 20 4c 0d 0a 31 33 36 30 |0   NEXT| L..1360|
|00000d60| 20 20 4e 45 58 54 20 44 | 43 0d 0a 31 33 37 30 20 |  NEXT D|C..1370 |
|00000d70| 4e 45 58 54 20 44 52 0d | 0a 31 33 38 30 20 27 20 |NEXT DR.|.1380 ' |
|00000d80| 53 4f 52 54 0d 0a 31 33 | 39 30 20 43 4b 53 57 3d |SORT..13|90 CKSW=|
|00000d90| 31 3a 50 52 49 4e 54 20 | 22 53 6f 72 74 69 6e 67 |1:PRINT |"Sorting|
|00000da0| 20 69 6e 20 42 4d 45 4e | 55 2e 54 4d 50 22 3b 0d | in BMEN|U.TMP";.|
|00000db0| 0a 31 34 30 30 20 57 48 | 49 4c 45 20 43 4b 53 57 |.1400 WH|ILE CKSW|
|00000dc0| 3d 31 3a 43 4b 53 57 3d | 30 0d 0a 31 34 31 30 20 |=1:CKSW=|0..1410 |
|00000dd0| 20 46 4f 52 20 49 3d 32 | 20 54 4f 20 41 52 0d 0a | FOR I=2| TO AR..|
|00000de0| 31 34 32 30 20 20 20 49 | 46 20 41 52 52 41 59 24 |1420   I|F ARRAY$|
|00000df0| 28 49 2d 31 29 3e 41 52 | 52 41 59 24 28 49 29 20 |(I-1)>AR|RAY$(I) |
|00000e00| 54 48 45 4e 20 43 4b 53 | 57 3d 31 3a 53 57 41 50 |THEN CKS|W=1:SWAP|
|00000e10| 20 41 52 52 41 59 24 28 | 49 2d 31 29 2c 41 52 52 | ARRAY$(|I-1),ARR|
|00000e20| 41 59 24 28 49 29 0d 0a | 31 34 33 30 20 20 4e 45 |AY$(I)..|1430  NE|
|00000e30| 58 54 20 49 0d 0a 31 34 | 34 30 20 57 45 4e 44 0d |XT I..14|40 WEND.|
|00000e40| 0a 31 34 35 30 20 4f 4e | 20 45 52 52 4f 52 20 47 |.1450 ON| ERROR G|
|00000e50| 4f 54 4f 20 31 35 38 30 | 0d 0a 31 34 36 30 20 4f |OTO 1580|..1460 O|
|00000e60| 50 45 4e 20 22 42 4d 45 | 4e 55 2e 54 4d 50 22 20 |PEN "BME|NU.TMP" |
|00000e70| 46 4f 52 20 4f 55 54 50 | 55 54 20 41 53 20 23 31 |FOR OUTP|UT AS #1|
|00000e80| 0d 0a 31 34 37 30 20 4f | 4e 20 45 52 52 4f 52 20 |..1470 O|N ERROR |
|00000e90| 47 4f 54 4f 20 30 0d 0a | 31 34 38 30 20 50 52 49 |GOTO 0..|1480 PRI|
|00000ea0| 4e 54 20 23 31 2c 22 35 | 30 30 20 27 42 45 47 49 |NT #1,"5|00 'BEGI|
|00000eb0| 4e 22 0d 0a 31 34 39 30 | 20 46 4f 52 20 49 3d 31 |N"..1490| FOR I=1|
|00000ec0| 20 54 4f 20 41 52 0d 0a | 31 35 30 30 20 20 50 52 | TO AR..|1500  PR|
|00000ed0| 49 4e 54 20 23 31 2c 53 | 54 52 24 28 49 2b 35 30 |INT #1,S|TR$(I+50|
|00000ee0| 30 29 20 2b 20 22 20 41 | 52 52 41 59 24 28 22 20 |0) + " A|RRAY$(" |
|00000ef0| 2b 20 53 54 52 24 28 49 | 29 20 2b 20 22 20 29 3d |+ STR$(I|) + " )=|
|00000f00| 22 20 2b 20 43 48 52 24 | 28 33 34 29 20 2b 20 41 |" + CHR$|(34) + A|
|00000f10| 52 52 41 59 24 28 49 29 | 20 2b 20 43 48 52 24 28 |RRAY$(I)| + CHR$(|
|00000f20| 33 34 29 0d 0a 31 35 31 | 30 20 4e 45 58 54 20 49 |34)..151|0 NEXT I|
|00000f30| 0d 0a 31 35 32 30 20 50 | 52 49 4e 54 20 23 31 2c |..1520 P|RINT #1,|
|00000f40| 22 39 39 39 20 27 45 4e | 44 22 0d 0a 31 35 33 30 |"999 'EN|D"..1530|
|00000f50| 20 4f 4e 20 45 52 52 4f | 52 20 47 4f 54 4f 20 31 | ON ERRO|R GOTO 1|
|00000f60| 36 33 30 0d 0a 31 35 34 | 30 20 43 4c 4f 53 45 0d |630..154|0 CLOSE.|
|00000f70| 0a 31 35 35 30 20 43 48 | 41 49 4e 20 4d 45 52 47 |.1550 CH|AIN MERG|
|00000f80| 45 20 22 42 4d 45 4e 55 | 2e 54 4d 50 22 2c 31 35 |E "BMENU|.TMP",15|
|00000f90| 36 30 2c 41 4c 4c 2c 44 | 45 4c 45 54 45 20 35 30 |60,ALL,D|ELETE 50|
|00000fa0| 30 2d 39 39 39 0d 0a 31 | 35 36 30 20 4b 49 4c 4c |0-999..1|560 KILL|
|00000fb0| 20 22 42 4d 45 4e 55 2e | 54 4d 50 22 3a 53 41 56 | "BMENU.|TMP":SAV|
|00000fc0| 45 20 22 42 4d 45 4e 55 | 0d 0a 31 35 37 30 20 52 |E "BMENU|..1570 R|
|00000fd0| 55 4e 22 42 4d 45 4e 55 | 0d 0a 31 35 38 30 20 49 |UN"BMENU|..1580 I|
|00000fe0| 46 20 28 45 52 52 3d 37 | 30 29 20 41 4e 44 20 28 |F (ERR=7|0) AND (|
|00000ff0| 45 52 4c 3d 31 34 36 30 | 29 20 54 48 45 4e 20 52 |ERL=1460|) THEN R|
|00001000| 45 53 55 4d 45 20 31 35 | 39 30 20 45 4c 53 45 20 |ESUME 15|90 ELSE |
|00001010| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 54 4f 20 30 0d |ON ERROR| GOTO 0.|
|00001020| 0a 31 35 39 30 20 43 4c | 53 3a 50 52 49 4e 54 20 |.1590 CL|S:PRINT |
|00001030| 22 54 68 65 20 64 69 73 | 6b 20 69 73 20 77 72 69 |"The dis|k is wri|
|00001040| 74 65 20 70 72 6f 74 65 | 63 74 65 64 21 22 0d 0a |te prote|cted!"..|
|00001050| 31 36 30 30 20 50 52 49 | 4e 54 20 22 52 65 6d 6f |1600 PRI|NT "Remo|
|00001060| 76 65 20 74 61 62 20 61 | 6e 64 20 70 72 65 73 73 |ve tab a|nd press|
|00001070| 20 46 31 30 20 6f 72 20 | 61 62 6f 72 74 20 74 68 | F10 or |abort th|
|00001080| 65 20 70 72 6f 67 72 61 | 6d 2e 22 3a 50 52 49 4e |e progra|m.":PRIN|
|00001090| 54 0d 0a 31 36 31 30 20 | 47 4f 53 55 42 20 31 36 |T..1610 |GOSUB 16|
|000010a0| 35 30 3a 45 4e 44 0d 0a | 31 36 32 30 20 49 46 20 |50:END..|1620 IF |
|000010b0| 28 45 52 52 3d 35 33 29 | 20 41 4e 44 20 28 45 52 |(ERR=53)| AND (ER|
|000010c0| 4c 3d 31 32 32 30 29 20 | 54 48 45 4e 20 52 45 53 |L=1220) |THEN RES|
|000010d0| 55 4d 45 20 4e 45 58 54 | 20 45 4c 53 45 20 4f 4e |UME NEXT| ELSE ON|
|000010e0| 20 45 52 52 4f 52 20 47 | 4f 54 4f 20 30 0d 0a 31 | ERROR G|OTO 0..1|
|000010f0| 36 33 30 20 49 46 20 28 | 45 52 52 3d 35 29 20 41 |630 IF (|ERR=5) A|
|00001100| 4e 44 20 28 45 52 4c 3d | 31 35 35 30 29 20 54 48 |ND (ERL=|1550) TH|
|00001110| 45 4e 20 52 45 53 55 4d | 45 20 31 36 34 30 20 45 |EN RESUM|E 1640 E|
|00001120| 4c 53 45 20 4f 4e 20 45 | 52 52 4f 52 20 47 4f 54 |LSE ON E|RROR GOT|
|00001130| 4f 20 30 0d 0a 31 36 34 | 30 20 4f 4e 20 45 52 52 |O 0..164|0 ON ERR|
|00001140| 4f 52 20 47 4f 54 4f 20 | 30 3a 43 48 41 49 4e 20 |OR GOTO |0:CHAIN |
|00001150| 4d 45 52 47 45 20 22 42 | 4d 45 4e 55 2e 54 4d 50 |MERGE "B|MENU.TMP|
|00001160| 22 2c 31 35 36 30 2c 41 | 4c 4c 3a 47 4f 54 4f 20 |",1560,A|LL:GOTO |
|00001170| 31 35 36 30 0d 0a 31 36 | 35 30 20 4b 45 59 20 4f |1560..16|50 KEY O|
|00001180| 46 46 3a 4b 45 59 20 31 | 2c 22 4c 49 53 54 20 22 |FF:KEY 1|,"LIST "|
|00001190| 3a 4b 45 59 20 32 2c 22 | 52 55 4e 22 2b 43 48 52 |:KEY 2,"|RUN"+CHR|
|000011a0| 24 28 31 33 29 3a 4b 45 | 59 20 33 2c 22 4c 4f 41 |$(13):KE|Y 3,"LOA|
|000011b0| 44 22 2b 43 48 52 24 28 | 33 34 29 0d 0a 31 36 36 |D"+CHR$(|34)..166|
|000011c0| 30 20 4b 45 59 20 34 2c | 22 53 41 56 45 22 2b 43 |0 KEY 4,|"SAVE"+C|
|000011d0| 48 52 24 28 33 34 29 3a | 4b 45 59 20 35 2c 22 43 |HR$(34):|KEY 5,"C|
|000011e0| 4f 4e 54 22 2b 43 48 52 | 24 28 31 33 29 3a 4b 45 |ONT"+CHR|$(13):KE|
|000011f0| 59 20 4f 4e 3a 52 45 54 | 55 52 4e 0d 0a 31 36 37 |Y ON:RET|URN..167|
|00001200| 30 20 43 4c 53 3a 50 52 | 49 4e 54 20 22 45 78 69 |0 CLS:PR|INT "Exi|
|00001210| 74 20 74 6f 20 44 4f 53 | 20 61 6e 64 20 65 6e 74 |t to DOS| and ent|
|00001220| 65 72 20 54 59 50 45 20 | 42 4d 45 4e 55 2e 44 4f |er TYPE |BMENU.DO|
|00001230| 43 20 74 6f 22 0d 0a 31 | 36 38 30 20 50 52 49 4e |C to"..1|680 PRIN|
|00001240| 54 20 22 64 69 73 70 6c | 61 79 20 74 68 65 20 69 |T "displ|ay the i|
|00001250| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 64 69 73 74 72 |nformati|on distr|
|00001260| 69 62 75 74 65 64 22 0d | 0a 31 36 39 30 20 50 52 |ibuted".|.1690 PR|
|00001270| 49 4e 54 20 22 77 69 74 | 68 20 74 68 69 73 20 70 |INT "wit|h this p|
|00001280| 72 6f 67 72 61 6d 2e 22 | 0d 0a 31 37 30 30 20 4f |rogram."|..1700 O|
|00001290| 4e 20 45 52 52 4f 52 20 | 47 4f 54 4f 20 30 3a 50 |N ERROR |GOTO 0:P|
|000012a0| 52 49 4e 54 3a 50 52 49 | 4e 54 20 22 50 72 65 73 |RINT:PRI|NT "Pres|
|000012b0| 73 20 61 6e 79 20 6b 65 | 79 20 74 6f 20 63 6f 6e |s any ke|y to con|
|000012c0| 74 69 6e 75 65 2e 2e 2e | 22 3b 0d 0a 31 37 31 30 |tinue...|";..1710|
|000012d0| 20 41 24 3d 49 4e 4b 45 | 59 24 3a 49 46 20 41 24 | A$=INKE|Y$:IF A$|
|000012e0| 3d 22 22 20 54 48 45 4e | 20 31 37 31 30 20 45 4c |="" THEN| 1710 EL|
|000012f0| 53 45 20 52 45 54 55 52 | 4e 20 39 30 0d 0a 31 37 |SE RETUR|N 90..17|
|00001300| 32 30 20 43 4c 53 3a 50 | 52 49 4e 54 3a 50 52 49 |20 CLS:P|RINT:PRI|
|00001310| 4e 54 20 22 44 41 54 45 | 3a 20 22 20 44 41 54 45 |NT "DATE|: " DATE|
|00001320| 24 20 22 20 20 20 54 49 | 4d 45 3a 20 22 20 54 49 |$ "   TI|ME: " TI|
|00001330| 4d 45 24 3a 47 4f 54 4f | 20 31 37 30 30 0d 0a 31 |ME$:GOTO| 1700..1|
|00001340| 37 33 30 20 57 49 44 54 | 48 20 38 30 3a 47 4f 53 |730 WIDT|H 80:GOS|
|00001350| 55 42 20 31 36 35 30 3a | 45 4e 44 0d 0a 31 37 34 |UB 1650:|END..174|
|00001360| 30 20 53 59 53 54 45 4d | 0d 0a 31 37 35 30 20 49 |0 SYSTEM|..1750 I|
|00001370| 46 20 28 45 52 52 3d 35 | 33 29 20 41 4e 44 20 28 |F (ERR=5|3) AND (|
|00001380| 45 52 4c 3d 31 31 39 30 | 29 20 54 48 45 4e 20 47 |ERL=1190|) THEN G|
|00001390| 4f 54 4f 20 31 37 36 30 | 20 45 4c 53 45 20 4f 4e |OTO 1760| ELSE ON|
|000013a0| 20 45 52 52 4f 52 20 47 | 4f 54 4f 20 30 0d 0a 31 | ERROR G|OTO 0..1|
|000013b0| 37 36 30 20 50 52 49 4e | 54 3a 50 52 49 4e 54 20 |760 PRIN|T:PRINT |
|000013c0| 22 46 69 6c 65 20 22 20 | 41 52 52 41 59 24 28 50 |"File " |ARRAY$(P|
|000013d0| 29 20 22 2e 42 41 53 20 | 6e 6f 74 20 66 6f 75 6e |) ".BAS |not foun|
|000013e0| 64 22 3a 52 45 53 55 4d | 45 20 31 37 30 30 0d 0a |d":RESUM|E 1700..|
|000013f0| 1a 20 28 45 52 52 3d 35 | 33 29 20 41 4e 44 20 28 |. (ERR=5|3) AND (|
|00001400| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001410| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001420| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001430| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001440| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001450| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001460| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001470| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001480| 76 ff bf 2f 62 6d 65 6e | 75 2e 64 6f 63 00 4d 00 |v../bmen|u.doc.M.|
|00001490| 02 00 01 00 04 00 03 00 | 06 00 05 00 df ff 07 00 |........|........|
|000014a0| 09 00 08 00 0b 00 0a 00 | 0d 00 0c 00 0e 00 9a ff |........|........|
|000014b0| 10 00 0f 00 90 ff 11 00 | 12 00 8b ff 14 00 13 00 |........|........|
|000014c0| 91 ff 15 00 16 00 8d ff | 9e ff 96 ff 8c ff 17 00 |........|........|
|000014d0| 19 00 18 00 1b 00 1a 00 | 1d 00 1c 00 1e 00 9b ff |........|........|
|000014e0| 1f 00 8a ff f2 ff f5 ff | 92 ff 20 00 21 00 97 ff |........|.. .!...|
|000014f0| 22 00 93 ff 23 00 8f ff | 24 00 99 ff 9c ff 25 00 |"...#...|$.....%.|
|00001500| 86 ff 26 00 27 00 d1 ff | 28 00 98 ff 29 00 bd ff |..&.'...|(...)...|
|00001510| 2b 00 2a 00 9d ff 2c 00 | 88 ff ba ff 2d 00 b1 ff |+.*...,.|....-...|
|00001520| 2f 00 2e 00 b2 ff b6 ff | ac ff aa ff 94 ff 30 00 |/.......|......0.|
|00001530| b9 ff be ff 32 00 31 00 | bb ff 33 00 ce ff bc ff |....2.1.|..3.....|
|00001540| ab ff 89 ff 35 00 34 00 | d6 ff 36 00 cf ff d7 ff |....5.4.|..6.....|
|00001550| ad ff 37 00 3a 00 38 00 | 39 00 3b 00 3c 00 d2 ff |..7.:.8.|9.;.<...|
|00001560| b7 ff 87 ff 3e 00 3d 00 | dd ff 3f 00 b0 ff ca ff |....>.=.|..?.....|
|00001570| 41 00 40 00 c6 ff d3 ff | a8 ff c7 ff cd ff cb ff |A.@.....|........|
|00001580| c5 ff 6f ff 42 00 43 00 | 45 00 44 00 cc ff af ff |..o.B.C.|E.D.....|
|00001590| f3 ff 46 00 8e ff d8 ff | 48 00 49 00 4b 00 47 00 |..F.....|H.I.K.G.|
|000015a0| 4a 00 4c 00 b4 ff c9 ff | e0 ff d0 ff a6 ff d5 ff |J.L.....|........|
|000015b0| a9 ff c8 ff b3 ff e5 ff | ff fe ee ff b5 ff 85 ff |........|........|
|000015c0| fc ff b8 ff c2 31 ce f8 | e0 16 a8 a8 b4 a5 a1 4b |.....1..|.......K|
|000015d0| 55 8b f6 65 8a a9 6a d1 | 9e b5 ec 8d 8c 15 b8 91 |U..e..j.|........|
|000015e0| 32 35 85 31 a3 75 15 aa | 2e 2d a6 96 3d 94 f1 c1 |25.1.u..|.-..=...|
|000015f0| 15 5e 41 54 8d 6c 69 63 | c5 41 cc 0c c6 19 ef ea |.^AT.lic|.A......|
|00001600| 7f 25 86 8a 07 4c 4c 55 | 8b f6 95 18 dd 57 7f db |.%...LLU|.....W..|
|00001610| 59 0b f4 d7 03 4f 72 fa | b6 b2 3e d6 22 9f f7 3f |Y....Or.|..>."..?|
|00001620| 51 69 4b 43 57 62 a8 78 | 40 63 3c 68 56 48 9c be |QiKCWb.x|@c<hVH..|
|00001630| cd f0 ee bf 43 7a a7 ae | a3 d2 96 07 0e 3c c9 b5 |....Cz..|.....<..|
|00001640| af 3f f1 d7 fb c2 9f 48 | bf 41 8b 7c de ff 44 a5 |.?.....H|.A.|..D.|
|00001650| 2d 0d 65 bc c4 50 f1 80 | 66 32 ce 78 57 25 d6 fd |-.e..P..|f2.xW%..|
|00001660| d8 6e 50 5b e4 13 53 d5 | a2 7d 07 7f 4d 96 65 7d |.nP[..S.|.}..M.e}|
|00001670| 5f 9b 13 53 d5 a2 dd 14 | 95 b6 e1 0b 23 2f 7e 9b |_..S....|....#/~.|
|00001680| 52 77 1f 4a 5e 4f 54 da | d2 50 c6 0f e9 c9 f6 6d |Rw.J^OT.|.P.....m|
|00001690| b9 a4 c4 6f d0 0c 6f b5 | 29 20 f0 0a e3 ab f4 b7 |...o..o.|) ......|
|000016a0| fe 89 a9 6a d1 0e 33 45 | a5 6d 95 5b d7 43 49 0b |...j..3E|.m.[.CI.|
|000016b0| 1a ec 36 c3 44 a5 2d 0d | 65 bc 72 bd 0f e9 f3 fe |..6.D.-.|e.r.....|
|000016c0| 27 db 2f f2 29 20 f0 0a | e3 e6 c4 54 b5 68 df 6d |'./.) ..|...T.h.m|
|000016d0| 3b 75 8b d5 07 d5 c7 5d | 5a bb 05 fb f3 fe d0 c4 |;u.....]|Z.......|
|000016e0| 54 b5 68 87 99 8c 77 f5 | 3f 7c 70 2e e9 c7 45 3e |T.h...w.|?|p...E>|
|000016f0| ef 6f 9b 8e 44 82 27 1f | 7e fe d8 e6 b1 4e 78 bf |.o..D.'.|~....Nx.|
|00001700| ee c7 76 83 da 2a d7 fb | b5 ab d2 cd 6f 72 c8 19 |..v..*..|....or..|
|00001710| d7 37 cf 1f 9f 92 6f a3 | f0 d7 26 e3 8c 8b a9 6a |.7....o.|..&....j|
|00001720| d1 be 4c 31 55 2d da 61 | 59 bb 6d 7f 9a 35 8f c9 |..L1U-.a|Y.m..5..|
|00001730| f6 3b a4 17 54 5b c3 17 | 46 5e fc 36 ef 8f cf 0a |.;..T[..|F^.6....|
|00001740| b9 24 4a 6b de 3f e3 25 | 86 8a 07 2c c8 63 56 48 |.$Jk.?.%|...,.cVH|
|00001750| 9c be cd f0 ee bf 24 c8 | cf a5 4b ea ac 90 38 51 |......$.|..K...8Q|
|00001760| 69 4b 43 57 62 a8 78 40 | 33 a7 b8 d8 7c 7e c1 33 |iKCWb.x@|3...|~.3|
|00001770| fe 85 3f 91 7e 83 16 f9 | bc ff 95 18 2a 1e b0 ca |..?.~...|....*...|
|00001780| ad eb e9 db ca fa 58 6b | 01 7e 2e 3d f0 9e 7a 97 |......Xk|.~.=..z.|
|00001790| f2 40 70 fc 06 99 33 fa | a3 19 f7 fe b6 5d ca 03 |.@p...3.|.....]..|
|000017a0| c1 f1 1b b4 ce e7 81 bf | 24 c8 2f c9 4b ea 4e db |........|$./.K.N.|
|000017b0| f5 55 6e 5d af f3 8b ee | c7 0a 5e f7 a7 1d d2 a3 |.Un]....|..^.....|
|000017c0| ef 7e 64 5c df 56 d6 c7 | 7a bd a3 9e 4b cb 94 54 |.~d\.V..|z...K..T|
|000017d0| 7f 6b 8b 7c 49 48 6c 3f | ef 7f fa 36 c3 bb ff 6e |.k.|IHl?|...6...n|
|000017e0| 5b 05 af ff 4a 0c ff c4 | 5f 67 99 8c 33 6e 2b ff |[...J...|_g..3n+.|
|000017f0| 18 2e a9 8b 7c 15 bc 7e | 49 9d c7 ac 90 38 7d 9b |....|..~|I....8}.|
|00001800| e1 dd 7f f0 13 53 d5 a2 | 7d 99 62 aa 5a b4 c3 b2 |.....S..|}.b.Z...|
|00001810| a6 e3 db 2e e9 7f bd 0a | 5e 7f c6 3d 66 85 c4 e9 |........|^..=f...|
|00001820| db 0c ef fe 3b a4 67 85 | 5c eb 43 d6 7a 9d df a9 |....;.g.|\.C.z...|
|00001830| 1c fc 45 3e ef 7f 79 d4 | 75 54 2e a9 70 26 a6 aa |..E>..y.|uT..p&..|
|00001840| 45 3b e3 99 62 aa 5a b4 | c3 b2 76 da f4 6d 8e b7 |E;..b.Z.|..v..m..|
|00001850| 23 fd f5 0c 14 95 36 0a | ef 2f a9 3b 9d 90 be 4a |#.....6.|./.;...J|
|00001860| 7f 93 7e a2 d2 96 86 2e | bf f5 b7 1d 7c c6 93 20 |..~.....|....|.. |
|00001870| 3f 97 5e 2f 68 56 48 9c | be cd f0 ee 6f 4e 99 fb |?.^/hVH.|....oN..|
|00001880| e3 bc ff b9 f4 c0 7b ea | 5d ca 03 c1 f1 1b 34 f0 |......{.|].....4.|
|00001890| e4 37 e8 35 e3 a7 13 dd | bf db a6 6f 2b eb 63 bd |.7.5....|...o+.c.|
|000018a0| 9e f7 bf 3c ea 3a 2a 97 | d4 35 ff b2 ed e0 ef 0b |...<.:*.|.5......|
|000018b0| 7f 22 fd f5 3c 96 9c d2 | 25 fe 0e 69 c6 f1 fd 5c |."..<...|%..i...\|
|000018c0| 9a f7 3f 3a e0 db 22 9f | f7 3f 51 69 4b 43 57 62 |..?:..".|.?QiKCWb|
|000018d0| a8 78 40 5b d0 ac 90 38 | 7d 9b e1 dd df 64 9c f1 |.x@[...8|}....d..|
|000018e0| 0d 62 0e 5a ff c1 79 ff | 6b 09 fe 13 e3 9b 20 73 |.b.Z..y.|k..... s|
|000018f0| e9 d6 e4 cf fb 5f 7e eb | 6f d9 0a de ec 9c b6 24 |....._~.|o......$|
|00001900| 00 38 a4 19 df b2 33 67 | f4 47 cf fb 5f 7e eb 1f |.8....3g|.G.._~..|
|00001910| 1d f0 6d 39 06 98 f7 bf | 96 e0 3f 31 be 09 36 67 |..m9....|..?1..6g|
|00001920| 0b f4 79 ff cb 6f fd a3 | 03 be 31 be 19 37 57 80 |..y..o..|..1..7W.|
|00001930| 5b d7 d9 3a e0 49 9a 0e | ca dd 7c d7 f7 85 6f f3 |[..:.I..|..|...o.|
|00001940| c6 f8 56 40 73 b6 d3 fd | f3 fe 97 df fa 47 07 7c |..V@s...|.....G.||
|00001950| db a5 75 c0 93 34 1d 94 | 8c 6f 05 69 2e f5 a8 fe |..u..4..|.o.i....|
|00001960| 3a 0f 48 9a 0e ca 5d f2 | 58 7d e9 db 8c 67 64 c0 |:.H...].|X}...gd.|
|00001970| 0b 80 5b 60 8c 6f 42 cd | d9 4e f7 67 eb 80 27 69 |..[`.oB.|.N.g..'i|
|00001980| 76 4e 5b 66 e0 3a e0 49 | 6a b3 73 5a 16 e3 9b 00 |vN[f.:.I|j.sZ....|
|00001990| 73 05 b8 75 9d ad 03 9e | a4 e9 a0 64 7c 90 0c 73 |s..u....|...d|..s|
|000019a0| b0 db ca fa 58 f3 fe 27 | 4b 7d fc f5 c0 93 64 9c |....X..'|K}....d.|
|000019b0| f1 6a f7 a3 b5 e3 fe a0 | f4 f5 a7 ad f3 4f 03 47 |.j......|.....O.G|
|000019c0| ff 3c f6 d4 24 fe bc 3f | 3e ef 7f 25 86 8a 07 ac |.<..$..?|>..%....|
|000019d0| 12 68 68 4b 02 f1 13 af | 2d c6 2b d7 fb 90 be e4 |.hhK....|-.+.....|
|000019e0| c8 76 49 9d a4 ca 21 7f | bd 76 f5 ef f3 fc 13 6f |.vI...!.|.v.....o|
|000019f0| 0b 5c 1d ad 2d f2 e9 e3 | c7 5c a1 a8 7c f7 a3 c0 |.\..-...|.\..|...|
|00001a00| 59 21 19 af 84 ac f5 3a | bf ca 6d 3f 8f e5 17 9b |Y!.....:|..m?....|
|00001a10| cf d1 9a f7 bf 12 43 c5 | 03 16 b4 b3 ce 49 0c af |......C.|.....I..|
|00001a20| e1 65 39 7d 9b e1 dd 7f | 92 fc d6 8c 5b 21 77 f0 |.e9}....|....[!w.|
|00001a30| d7 24 fe ac 90 eb 4f f7 | 0f 3f f9 db fd 7a 67 49 |.$....O.|.?...zgI|
|00001a40| 80 b2 7e ff 1d d2 ab 04 | 1a 2e a9 4b a2 b4 cc 15 |..~.....|...K....|
|00001a50| 5c c8 25 87 18 3f 75 8b | 7d e1 4f a4 ff bc ff 9d |\.%..?u.|}.O.....|
|00001a60| 4e 74 ff 9a 7f d9 d6 b1 | f6 e4 8f 97 d4 45 e9 37 |Nt......|.....E.7|
|00001a70| 68 0a c8 4e ee 8f b3 42 | ee 68 bd 40 c6 f5 d7 ef |h..N...B|.h.@....|
|00001a80| 3f 51 69 4b 43 57 62 a8 | 78 40 5b 8e 01 66 85 c4 |?QiKCWb.|x@[..f..|
|00001a90| e9 db 0c ef fe e6 8c 95 | 7e 83 a6 80 ec b6 79 ff |........|~.....y.|
|00001aa0| 6b 75 54 be 39 e3 5f f8 | 13 e9 97 d4 95 07 7d 91 |kuT.9._.|......}.|
|00001ab0| 4f 4c 55 8b f6 75 a4 af | c4 d0 32 f9 b6 b3 fc 34 |OLU..u..|..2....4|
|00001ac0| 5f 66 1e 38 51 69 4b 43 | b3 06 9e e4 f4 6d 65 7d |_f.8QiKC|.....me}|
|00001ad0| 2c c6 2b fd d3 92 00 65 | fd fe da 5c 3a 9f 15 72 |,.+....e|...\:..r|
|00001ae0| 07 7f 14 be a3 f5 25 75 | 81 d3 5f bf 5f 52 27 2a |......%u|.._._R'*|
|00001af0| 6d 69 e8 4a 0c 15 0f 68 | cb 31 00 e3 56 48 9c be |mi.J...h|.1..VH..|
|00001b00| cd f0 ee 3f ef 9f 16 a5 | df a0 29 20 bb 6d 41 b5 |...?....|..) .mA.|
|00001b10| b5 2f fc 89 f4 d7 0b 4a | de 9c 22 70 62 aa 5a b4 |./.....J|.."pb.Z.|
|00001b20| c3 e6 fd 33 2e 4b 7d fc | 17 a5 df a0 dd b6 2f fc |...3.K}.|....../.|
|00001b30| 89 f4 d7 eb 58 7b f2 c7 | 4b ea ce 04 08 58 e6 a5 |....X{..|K....X..|
|00001b40| e6 7f f4 22 9f 02 92 b5 | 3c 70 de 3f e3 25 86 8a |..."....|<p.?.%..|
|00001b50| 07 8c 24 e8 3c 9a 8c 33 | 2e a6 aa 45 fb 92 fe 90 |..$.<..3|...E....|
|00001b60| fa 6d de ff f4 e7 97 ae | df a0 45 be 5c 52 e2 37 |.m......|..E.\R.7|
|00001b70| 68 86 b7 a6 80 64 cc 63 | 28 29 5b 07 3c c9 65 56 |h....d.c|()[.<.eV|
|00001b80| 8b 5d 55 a3 2c c6 5b cc | fb e3 b3 42 0e 1c 6b 7f |.]U.,.[.|...B..k.|
|00001b90| da ad ad e1 bb 44 9a c7 | c4 54 b5 68 5f c7 5a 89 |.....D..|.T.h_.Z.|
|00001ba0| df da 25 75 0a 48 c6 4e | ee 8f fb c2 9f 48 bf a4 |..%u.H.N|.....H..|
|00001bb0| 32 6e 85 c4 89 4a 5b 1a | ba 12 43 c5 03 cc a5 f3 |2n...J[.|..C.....|
|00001bc0| f5 51 f9 ee 47 81 b3 42 | e2 44 a5 2d 0d 5d 89 a1 |.Q..G..B|.D.-.]..|
|00001bd0| e2 01 4b fa 43 ea b7 79 | ff 8c eb cf 2f 5d bf 41 |..K.C..y|..../].A|
|00001be0| 8b 7c 0a 48 c6 bc 7f 9a | 5b e5 0f 25 65 eb 80 27 |.|.H....|[..%e..'|
|00001bf0| b9 cc 6a b1 ab 6a 94 35 | 8f a1 a4 89 a9 6a d1 6e |..j..j.5|.....j.n|
|00001c00| 4e 11 c8 b8 98 aa 16 ed | b0 c9 f6 53 40 32 16 38 |N.......|...S@2.8|
|00001c10| 94 94 ad 03 9e a4 5e 66 | b5 d8 55 35 ca 32 19 17 |......^f|..U5.2..|
|00001c20| 8e 71 c6 19 67 bc ab ff | 95 18 2a 1e b0 ca 69 ab |.q..g...|..*...i.|
|00001c30| e0 75 7f 5a 1e 38 c1 19 | 4b fa 83 27 f1 c7 e9 db |.u.Z.8..|K..'....|
|00001c40| ca fa 58 6d 87 f4 2a 81 | 86 b6 17 46 9e ba b6 18 |..Xm..*.|...F....|
|00001c50| af 7c 5d 2f 68 42 33 96 | f4 07 4f e2 8f d3 b7 95 |.|]/hB3.|..O.....|
|00001c60| f5 b1 9a 39 f1 f3 c0 df | 17 fe 44 fa 25 75 67 a2 |...9....|..D.%ug.|
|00001c70| d2 96 86 ae c4 50 f1 80 | 79 ff 8c b7 04 ff 69 b7 |.....P..|y.....i.|
|00001c80| ad 55 ae 27 fd eb 79 4c | 48 1a d6 55 68 42 33 cc |.U.'..yL|H..UhB3.|
|00001c90| a5 f3 59 21 57 39 e4 f3 | 58 f3 63 ed d2 84 a4 61 |..Y!W9..|X.c....a|
|00001ca0| 5d 85 26 38 63 de 3f 31 | 9e f4 87 d4 9f f7 bf fa |].&8c.?1|........|
|00001cb0| d2 4f 48 1a d6 55 68 42 | 33 e0 40 0b ca 06 27 7b |.OH..UhB|3.@...'{|
|00001cc0| a3 74 b1 6b d9 b2 c7 6f | 6d ef 89 39 8f 09 49 c3 |.t.k...o|m..9..I.|
|00001cd0| ba 0a 4d 70 06 9c 65 42 | 95 f6 ae b4 b1 e2 e0 19 |..Mp..eB|........|
|00001ce0| ef fc 9a c4 9f c7 c0 31 | fc ce 3a 27 31 c8 72 49 |.......1|..:'1.rI|
|00001cf0| 94 d6 22 9f 15 12 a7 6f | 33 bc fb 2f bf d8 3c cb |.."....o|3../..<.|
|00001d00| 1c 2c 46 e1 4b fa 43 ea | 33 1e de 3f 4e 48 1a d6 |.,F.K.C.|3..?NH..|
|00001d10| 55 68 cd 8f 3f 78 f2 b6 | 4b f3 fe 57 62 a8 78 80 |Uh..?x..|K..Wb.x.|
|00001d20| 39 23 49 f3 fe 57 62 a8 | 78 c0 0e e9 3d f9 e3 14 |9#I..Wb.|x...=...|
|00001d30| 10 c6 33 a3 f4 1b 34 01 | 02 96 07 4e 4c 55 8b 76 |..3...4.|...NLU.v|
|00001d40| 98 29 2a 6d 59 3b a4 67 | 85 c4 81 d0 37 bf af 57 |.)*mY;.g|....7..W|
|00001d50| 62 a8 78 c0 2a b7 ae d7 | f9 b5 d3 fd da 64 5c 11 |b.x.*...|.....d\.|
|00001d60| 38 1d b2 53 ff da d5 af | a7 6f 33 bc fb b7 25 41 |8..S....|.o3...%A|
|00001d70| 7e 2e 5d 52 07 02 7f de | 1f 5a 01 b3 9b a8 b4 a5 |~.]R....|.Z......|
|00001d80| a1 2b 31 54 3c a0 31 9e | 29 cb 79 0c 02 11 94 35 |.+1T<.1.|).y....5|
|00001d90| ef 7f fa b6 b2 3e d6 6e | 5b d2 1f 52 5f cf 63 42 |.....>.n|[..R_.cB|
|00001da0| d2 b0 ae 42 13 9a 61 32 | ce 78 57 ff 03 4f 72 b7 |...B..a2|.xW..Or.|
|00001db0| 4d 7f 7e e9 f5 3c a6 6f | 2b eb 63 ed d2 f0 bb 1f |M.~..<.o|+.c.....|
|00001dc0| db af fb ea 8f 05 cd fb | 1f 08 8a a4 c7 00 cf 38 |........|.......8|
|00001dd0| 08 ba 1e b8 43 7a b2 7d | 5b 12 75 e0 82 96 44 1d |....Cz.}|[.u...D.|
|00001de0| 38 10 74 3d b0 99 13 53 | d5 a2 7d fd 69 3b 03 81 |8.t=...S|..}.i;..|
|00001df0| bf af 4f 27 f0 f8 33 9e | 44 1d 38 7d 5b 59 1f 6b |..O'..3.|D.8}[Y.k|
|00001e00| de 1f 9a 98 aa 16 ed 30 | 93 71 c6 bb fa 5f 2e 29 |.......0|.q..._.)|
|00001e10| f1 1b 34 c3 5b 6d 0a 08 | bc c2 f8 fa d3 fd eb fc |..4.[m..|........|
|00001e20| d3 f4 e7 97 5e 2f 0f 9c | 98 aa 16 ed cb a4 f0 9d |....^/..|........|
|00001e30| ee 73 eb 53 ff f2 40 c6 | c5 54 b5 68 87 65 cd 63 |.s.S..@.|.T.h.e.c|
|00001e40| de ff f2 a8 eb a8 5c 52 | e1 30 ce f8 06 31 a7 80 |......\R|.0...1..|
|00001e50| 0c 7e f6 52 1f ff 89 a9 | 6a d1 ce f8 26 c8 9c 42 |.~.R....|j...&..B|
|00001e60| d0 e0 57 e8 eb 92 f1 2d | 3b 73 8a ec 06 3f a3 77 |..W....-|;s...?.w|
|00001e70| 89 34 8f 89 4a 5b 1a ca | f8 26 d8 9c 42 f0 e0 67 |.4..J[..|.&..B..g|
|00001e80| f4 2e 91 e6 31 98 31 1b | e3 9b 71 73 0a e3 83 1f |....1.1.|..qs....|
|00001e90| ec b6 b2 3e d6 bc ff e9 | e3 bf 43 7a 7e c1 33 ce |...>....|..Cz~.3.|
|00001ea0| 38 2c 56 34 d6 35 7c 92 | 40 e0 92 00 e5 ad 7f 81 |8,V4.5|.|@.......|
|00001eb0| 4b fa 43 ea cf fb 1f 1d | f0 13 53 d5 a2 7d 99 62 |K.C.....|..S..}.b|
|00001ec0| aa 5a b4 c3 b2 16 b8 f0 | fe b1 72 db 33 0e 42 df |.Z......|..r.3.B.|
|00001ed0| dc 9a f7 bf 12 43 c5 03 | d6 2e 25 bf eb bb 6d ed |.....C..|..%...m.|
|00001ee0| eb 7c 20 f4 cd ad 4b aa | c0 d5 97 7e 24 41 e7 71 |.| ...K.|...~$A.q|
|00001ef0| fa cb 27 fd e4 8c 1f d2 | a3 f0 75 3f 5a f3 a8 1f |..'.....|..u?Z...|
|00001f00| 0f f9 22 5f 89 a1 e2 01 | eb 48 b5 99 8c 33 3e b8 |.."_....|.H...3>.|
|00001f10| c2 8a d1 99 cd bf ec 9f | 1a e3 83 2b ac ed d0 0a |........|...+....|
|00001f20| 26 da 0b 1c f4 98 8c 0f | ae b0 10 41 c2 87 08 5f |&.......|...A..._|
|00001f30| a8 20 c6 85 63 bc a0 6f | 33 bc fb ef 52 7b f4 d7 |. ..c..o|3...R{..|
|00001f40| bb 6d 14 be c3 f8 26 2a | 6d 69 e8 56 62 a8 78 c0 |.m....&*|mi.Vb.x.|
|00001f50| f4 6d 86 77 7f 81 5b 97 | 91 b2 58 20 1a 1a 1a 1a |.m.w..[.|..X ....|
|00001f60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001f70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001f80| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001f90| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001fa0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001fb0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001fc0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001fd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001fe0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001ff0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002000| 31 30 20 27 0d 0a 32 30 | 20 27 20 44 4f 20 4e 4f |10 '..20| ' DO NO|
|00002010| 54 20 52 45 4e 55 4d 20 | 4f 52 20 52 45 4e 41 4d |T RENUM |OR RENAM|
|00002020| 45 20 4f 52 20 43 4f 4d | 50 49 4c 45 20 54 48 49 |E OR COM|PILE THI|
|00002030| 53 20 50 52 4f 47 52 41 | 4d 2e 0d 0a 33 30 20 27 |S PROGRA|M...30 '|
|00002040| 0d 0a 34 30 20 27 20 42 | 41 53 49 43 20 4d 45 4e |..40 ' B|ASIC MEN|
|00002050| 55 20 50 52 4f 47 52 41 | 4d 2e 20 56 45 52 53 49 |U PROGRA|M. VERSI|
|00002060| 4f 4e 20 31 2e 30 0d 0a | 35 30 20 27 20 41 20 4d |ON 1.0..|50 ' A M|
|00002070| 41 58 49 4d 55 4d 20 4f | 46 20 31 31 32 20 42 41 |AXIMUM O|F 112 BA|
|00002080| 53 49 43 20 46 49 4c 45 | 53 20 57 49 4c 4c 20 42 |SIC FILE|S WILL B|
|00002090| 45 20 48 41 4e 44 4c 45 | 44 20 42 59 20 54 48 49 |E HANDLE|D BY THI|
|000020a0| 53 20 50 52 4f 47 52 41 | 4d 2e 0d 0a 36 30 20 27 |S PROGRA|M...60 '|
|000020b0| 20 53 45 45 20 42 4d 45 | 4e 55 2e 44 4f 43 20 46 | SEE BME|NU.DOC F|
|000020c0| 4f 52 20 4d 4f 52 45 20 | 49 4e 46 4f 52 4d 41 54 |OR MORE |INFORMAT|
|000020d0| 49 4f 4e 2e 20 42 4f 42 | 20 53 54 45 50 48 45 4e |ION. BOB| STEPHEN|
|000020e0| 53 20 20 53 41 4e 20 4a | 4f 53 45 20 31 32 2f 31 |S  SAN J|OSE 12/1|
|000020f0| 2f 38 32 0d 0a 37 30 20 | 44 45 46 49 4e 54 20 41 |/82..70 |DEFINT A|
|00002100| 2d 5a 0d 0a 38 30 20 44 | 49 4d 20 41 52 52 41 59 |-Z..80 D|IM ARRAY|
|00002110| 24 28 31 31 33 29 0d 0a | 39 30 20 53 43 52 45 45 |$(113)..|90 SCREE|
|00002120| 4e 20 30 3a 4b 45 59 20 | 4f 46 46 20 3a 4b 45 59 |N 0:KEY |OFF :KEY|
|00002130| 20 31 30 2c 22 52 55 4e | 22 2b 43 48 52 24 28 33 | 10,"RUN|"+CHR$(3|
|00002140| 34 29 2b 22 42 4d 45 4e | 55 44 22 2b 43 48 52 24 |4)+"BMEN|UD"+CHR$|
|00002150| 28 31 33 29 0d 0a 31 31 | 30 20 27 20 54 48 45 20 |(13)..11|0 ' THE |
|00002160| 46 4f 4c 4c 4f 57 49 4e | 47 20 53 54 41 54 45 4d |FOLLOWIN|G STATEM|
|00002170| 45 4e 54 53 20 57 49 4c | 4c 20 42 45 20 4d 4f 44 |ENTS WIL|L BE MOD|
|00002180| 49 46 49 45 44 20 57 49 | 54 48 20 4f 50 54 49 4f |IFIED WI|TH OPTIO|
|00002190| 4e 20 39 39 0d 0a 35 30 | 30 20 27 42 45 47 49 4e |N 99..50|0 'BEGIN|
|000021a0| 0d 0a 35 31 30 20 43 4c | 53 3a 43 4f 4c 4f 52 20 |..510 CL|S:COLOR |
|000021b0| 30 2c 37 3a 20 50 52 49 | 4e 54 20 22 20 20 20 20 |0,7: PRI|NT "    |
|000021c0| 20 20 20 20 20 50 52 4f | 47 52 41 4d 20 49 4e 46 |     PRO|GRAM INF|
|000021d0| 4f 52 4d 41 54 49 4f 4e | 20 20 20 20 20 20 20 20 |ORMATION|        |
|000021e0| 20 22 3a 43 4f 4c 4f 52 | 20 37 2c 30 0d 0a 35 32 | ":COLOR| 7,0..52|
|000021f0| 30 20 50 52 49 4e 54 20 | 22 54 68 69 73 20 70 72 |0 PRINT |"This pr|
|00002200| 6f 67 72 61 6d 20 70 72 | 6f 76 69 64 65 73 20 61 |ogram pr|ovides a|
|00002210| 20 73 6f 72 74 65 64 20 | 6d 65 6e 75 22 0d 0a 35 | sorted |menu"..5|
|00002220| 33 30 20 50 52 49 4e 54 | 20 22 64 69 73 70 6c 61 |30 PRINT| "displa|
|00002230| 79 20 6f 66 20 74 68 65 | 20 42 41 53 49 43 20 70 |y of the| BASIC p|
|00002240| 72 6f 67 72 61 6d 73 20 | 6f 6e 20 79 6f 75 72 22 |rograms |on your"|
|00002250| 0d 0a 35 34 30 20 50 52 | 49 4e 54 20 22 64 69 73 |..540 PR|INT "dis|
|00002260| 6b 65 74 74 65 20 61 6e | 64 20 61 6c 6c 6f 77 73 |kette an|d allows|
|00002270| 20 66 6f 72 20 6d 65 6e | 75 20 73 65 6c 65 63 74 | for men|u select|
|00002280| 65 64 22 0d 0a 35 35 30 | 20 50 52 49 4e 54 20 22 |ed"..550| PRINT "|
|00002290| 65 78 65 63 75 74 69 6f | 6e 20 6f 66 20 74 68 65 |executio|n of the|
|000022a0| 20 42 41 53 49 43 20 70 | 72 6f 67 72 61 6d 73 2e | BASIC p|rograms.|
|000022b0| 22 0d 0a 35 36 30 20 50 | 52 49 4e 54 20 22 20 22 |"..560 P|RINT " "|
|000022c0| 0d 0a 35 37 30 20 50 52 | 49 4e 54 20 22 4f 70 74 |..570 PR|INT "Opt|
|000022d0| 69 6f 6e 20 39 39 20 69 | 73 20 75 73 65 64 20 77 |ion 99 i|s used w|
|000022e0| 68 65 6e 65 76 65 72 20 | 42 41 53 49 43 22 0d 0a |henever |BASIC"..|
|000022f0| 35 38 30 20 50 52 49 4e | 54 20 22 70 72 6f 67 72 |580 PRIN|T "progr|
|00002300| 61 6d 73 20 61 72 65 20 | 61 64 64 65 64 20 6f 72 |ams are |added or|
|00002310| 20 64 65 6c 65 74 65 64 | 20 66 72 6f 6d 20 74 68 | deleted| from th|
|00002320| 65 22 0d 0a 35 39 30 20 | 50 52 49 4e 54 20 22 64 |e"..590 |PRINT "d|
|00002330| 69 73 6b 65 74 74 65 2e | 20 57 68 69 6c 65 20 6f |iskette.| While o|
|00002340| 70 74 69 6f 6e 20 39 39 | 20 69 73 20 73 6c 6f 77 |ption 99| is slow|
|00002350| 20 74 6f 22 0d 0a 36 30 | 30 20 50 52 49 4e 54 20 | to"..60|0 PRINT |
|00002360| 22 65 78 65 63 75 74 65 | 20 74 68 65 20 72 65 73 |"execute| the res|
|00002370| 75 6c 74 20 77 69 6c 6c | 20 62 65 20 61 20 68 69 |ult will| be a hi|
|00002380| 67 68 22 0d 0a 36 31 30 | 20 50 52 49 4e 54 20 22 |gh"..610| PRINT "|
|00002390| 70 65 72 66 6f 72 6d 61 | 6e 63 65 20 28 66 6f 72 |performa|nce (for|
|000023a0| 20 42 41 53 49 43 29 20 | 6d 65 6e 75 20 70 72 6f | BASIC) |menu pro|
|000023b0| 67 72 61 6d 2e 22 0d 0a | 36 32 30 20 50 52 49 4e |gram."..|620 PRIN|
|000023c0| 54 20 22 4f 70 74 69 6f | 6e 20 39 39 20 77 69 6c |T "Optio|n 99 wil|
|000023d0| 6c 20 63 72 65 61 74 65 | 20 61 6e 64 20 6b 69 6c |l create| and kil|
|000023e0| 6c 20 66 69 6c 65 22 0d | 0a 36 33 30 20 50 52 49 |l file".|.630 PRI|
|000023f0| 4e 54 20 22 42 4d 45 4e | 55 2e 54 4d 50 20 61 6e |NT "BMEN|U.TMP an|
|00002400| 64 20 77 69 6c 6c 20 6d | 6f 64 69 66 79 20 69 74 |d will m|odify it|
|00002410| 73 65 6c 66 2e 22 0d 0a | 36 34 30 20 50 52 49 4e |self."..|640 PRIN|
|00002420| 54 20 22 42 65 20 73 75 | 72 65 20 74 68 65 20 64 |T "Be su|re the d|
|00002430| 65 66 61 75 6c 74 20 64 | 72 69 76 65 20 28 73 65 |efault d|rive (se|
|00002440| 74 20 62 79 20 44 4f 53 | 29 22 0d 0a 36 35 30 20 |t by DOS|)"..650 |
|00002450| 50 52 49 4e 54 20 22 69 | 73 20 74 68 65 20 73 61 |PRINT "i|s the sa|
|00002460| 6d 65 20 61 73 20 74 68 | 65 20 64 72 69 76 65 20 |me as th|e drive |
|00002470| 63 6f 6e 74 61 69 6e 69 | 6e 67 22 0d 0a 36 36 30 |containi|ng"..660|
|00002480| 20 50 52 49 4e 54 20 22 | 74 68 65 20 6d 65 6e 75 | PRINT "|the menu|
|00002490| 20 70 72 6f 67 72 61 6d | 2e 22 0d 0a 36 37 30 20 | program|."..670 |
|000024a0| 50 52 49 4e 54 0d 0a 36 | 38 30 20 43 4f 4c 4f 52 |PRINT..6|80 COLOR|
|000024b0| 20 30 2c 37 3a 50 52 49 | 4e 54 20 22 44 6f 20 6e | 0,7:PRI|NT "Do n|
|000024c0| 6f 74 20 72 65 6e 75 6d | 20 6f 72 20 63 68 61 6e |ot renum| or chan|
|000024d0| 67 65 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |ge the n|ame of t|
|000024e0| 68 69 73 22 0d 0a 36 39 | 30 20 50 52 49 4e 54 20 |his"..69|0 PRINT |
|000024f0| 22 70 72 6f 67 72 61 6d | 2e 20 54 68 69 73 20 6d |"program|. This m|
|00002500| 65 73 73 61 67 65 20 77 | 69 6c 6c 20 73 65 6c 66 |essage w|ill self|
|00002510| 20 20 20 20 20 20 20 20 | 22 0d 0a 37 30 30 20 50 |        |"..700 P|
|00002520| 52 49 4e 54 20 22 64 65 | 73 74 72 75 63 74 20 28 |RINT "de|struct (|
|00002530| 66 6f 72 65 76 65 72 29 | 20 77 68 65 6e 20 79 6f |forever)| when yo|
|00002540| 75 20 45 4e 54 45 52 2e | 20 20 20 20 20 22 3a 43 |u ENTER.|     ":C|
|00002550| 4f 4c 4f 52 20 37 2c 30 | 3a 50 52 49 4e 54 0d 0a |OLOR 7,0|:PRINT..|
|00002560| 37 31 30 20 50 52 49 4e | 54 20 22 20 20 20 20 20 |710 PRIN|T "     |
|00002570| 20 20 20 20 20 42 4f 42 | 20 53 54 45 50 48 45 4e |     BOB| STEPHEN|
|00002580| 53 20 53 41 4e 20 4a 4f | 53 45 20 31 32 2f 31 2f |S SAN JO|SE 12/1/|
|00002590| 38 32 22 0d 0a 37 32 30 | 20 50 52 49 4e 54 0d 0a |82"..720| PRINT..|
|000025a0| 37 33 30 20 49 4e 50 55 | 54 20 22 50 72 65 73 73 |730 INPU|T "Press|
|000025b0| 20 45 4e 54 45 52 20 74 | 6f 20 63 6f 6e 74 69 6e | ENTER t|o contin|
|000025c0| 75 65 2e 2e 2e 22 2c 41 | 24 0d 0a 37 34 30 20 47 |ue...",A|$..740 G|
|000025d0| 4f 54 4f 20 31 31 39 30 | 0d 0a 39 39 39 20 27 20 |OTO 1190|..999 ' |
|000025e0| 45 4e 44 0d 0a 31 30 30 | 30 20 27 20 45 4e 44 20 |END..100|0 ' END |
|000025f0| 4f 46 20 4d 4f 44 49 46 | 49 45 44 20 41 52 45 41 |OF MODIF|IED AREA|
|00002600| 0d 0a 31 30 30 35 20 43 | 4c 53 3a 49 46 20 41 52 |..1005 C|LS:IF AR|
|00002610| 52 41 59 24 28 36 34 29 | 3d 22 22 20 54 48 45 4e |RAY$(64)|="" THEN|
|00002620| 20 57 49 44 54 48 20 34 | 30 20 45 4c 53 45 20 57 | WIDTH 4|0 ELSE W|
|00002630| 49 44 54 48 20 38 30 0d | 0a 31 30 31 30 20 50 3d |IDTH 80.|.1010 P=|
|00002640| 30 3a 49 3d 30 3a 43 4c | 53 3a 4c 4f 43 41 54 45 |0:I=0:CL|S:LOCATE|
|00002650| 20 31 2c 34 3a 43 4f 4c | 4f 52 20 31 34 2c 30 0d | 1,4:COL|OR 14,0.|
|00002660| 0a 31 30 32 30 20 50 52 | 49 4e 54 20 22 42 41 53 |.1020 PR|INT "BAS|
|00002670| 49 43 20 70 72 6f 67 72 | 61 6d 73 20 6f 6e 20 74 |IC progr|ams on t|
|00002680| 68 69 73 20 64 69 73 6b | 65 74 74 65 3a 22 0d 0a |his disk|ette:"..|
|00002690| 31 30 33 30 20 46 4f 52 | 20 44 43 3d 31 20 54 4f |1030 FOR| DC=1 TO|
|000026a0| 20 36 36 20 53 54 45 50 | 20 31 33 0d 0a 31 30 34 | 66 STEP| 13..104|
|000026b0| 30 20 20 46 4f 52 20 44 | 52 3d 33 20 54 4f 20 32 |0  FOR D|R=3 TO 2|
|000026c0| 33 0d 0a 31 30 35 30 20 | 20 20 49 3d 49 2b 31 0d |3..1050 |  I=I+1.|
|000026d0| 0a 31 30 36 30 20 20 20 | 49 46 20 41 52 52 41 59 |.1060   |IF ARRAY|
|000026e0| 24 28 49 29 3d 22 22 20 | 54 48 45 4e 20 31 31 31 |$(I)="" |THEN 111|
|000026f0| 30 20 45 4c 53 45 20 4c | 4f 43 41 54 45 20 44 52 |0 ELSE L|OCATE DR|
|00002700| 2c 44 43 0d 0a 31 30 37 | 30 20 20 20 43 4f 4c 4f |,DC..107|0   COLO|
|00002710| 52 20 30 2c 37 3a 50 52 | 49 4e 54 20 55 53 49 4e |R 0,7:PR|INT USIN|
|00002720| 47 20 22 23 23 23 22 3b | 49 3b 0d 0a 31 30 38 30 |G "###";|I;..1080|
|00002730| 20 20 20 43 4f 4c 4f 52 | 20 37 2c 30 3a 50 52 49 |   COLOR| 7,0:PRI|
|00002740| 4e 54 20 22 20 22 3b 41 | 52 52 41 59 24 28 49 29 |NT " ";A|RRAY$(I)|
|00002750| 0d 0a 31 30 39 30 20 20 | 4e 45 58 54 20 44 52 0d |..1090  |NEXT DR.|
|00002760| 0a 31 31 30 30 20 4e 45 | 58 54 20 44 43 0d 0a 31 |.1100 NE|XT DC..1|
|00002770| 31 31 30 20 4c 4f 43 41 | 54 45 20 32 34 2c 31 3a |110 LOCA|TE 24,1:|
|00002780| 50 52 49 4e 54 20 22 45 | 6e 74 65 72 20 39 39 20 |PRINT "E|nter 99 |
|00002790| 74 6f 20 75 70 64 61 74 | 65 20 6d 65 6e 75 22 3b |to updat|e menu";|
|000027a0| 0d 0a 31 31 32 30 20 4c | 4f 43 41 54 45 20 32 35 |..1120 L|OCATE 25|
|000027b0| 2c 31 3a 49 4e 50 55 54 | 20 22 45 6e 74 65 72 20 |,1:INPUT| "Enter |
|000027c0| 6e 75 6d 62 65 72 20 6f | 66 20 70 72 6f 67 72 61 |number o|f progra|
|000027d0| 6d 20 64 65 73 69 72 65 | 64 3a 20 22 2c 50 0d 0a |m desire|d: ",P..|
|000027e0| 31 31 33 30 20 49 46 20 | 50 20 3c 20 31 20 4f 52 |1130 IF |P < 1 OR|
|000027f0| 20 50 20 3e 3d 20 49 20 | 54 48 45 4e 20 31 31 37 | P >= I |THEN 117|
|00002800| 30 0d 0a 31 31 34 30 20 | 57 49 44 54 48 20 38 30 |0..1140 |WIDTH 80|
|00002810| 3a 43 4c 53 3a 50 52 49 | 4e 54 20 22 50 72 65 73 |:CLS:PRI|NT "Pres|
|00002820| 73 20 46 31 30 20 74 6f | 20 72 65 74 75 72 6e 20 |s F10 to| return |
|00002830| 74 6f 20 6d 65 6e 75 20 | 77 68 65 6e 20 66 69 6e |to menu |when fin|
|00002840| 69 73 68 65 64 22 0d 0a | 31 31 35 30 20 50 52 49 |ished"..|1150 PRI|
|00002850| 4e 54 20 22 6f 72 20 65 | 6e 74 65 72 20 52 55 4e |NT "or e|nter RUN|
|00002860| 22 3b 3a 50 52 49 4e 54 | 20 43 48 52 24 28 33 34 |";:PRINT| CHR$(34|
|00002870| 29 3b 3a 50 52 49 4e 54 | 20 22 42 4d 45 4e 55 44 |);:PRINT| "BMENUD|
|00002880| 20 69 66 20 46 31 30 20 | 69 73 20 63 68 61 6e 67 | if F10 |is chang|
|00002890| 65 64 2e 22 0d 0a 31 31 | 36 30 20 52 55 4e 20 41 |ed."..11|60 RUN A|
|000028a0| 52 52 41 59 24 28 50 29 | 0d 0a 31 31 37 30 20 49 |RRAY$(P)|..1170 I|
|000028b0| 46 20 50 3d 39 39 20 54 | 48 45 4e 20 31 31 39 30 |F P=99 T|HEN 1190|
|000028c0| 20 45 4c 53 45 20 31 31 | 30 0d 0a 31 31 38 30 20 | ELSE 11|0..1180 |
|000028d0| 27 20 4d 45 4e 55 20 55 | 50 44 41 54 45 20 41 52 |' MENU U|PDATE AR|
|000028e0| 45 41 0d 0a 31 31 39 30 | 20 57 49 44 54 48 20 38 |EA..1190| WIDTH 8|
|000028f0| 30 3a 4f 4e 20 45 52 52 | 4f 52 20 47 4f 54 4f 20 |0:ON ERR|OR GOTO |
|00002900| 31 36 34 30 0d 0a 31 32 | 30 30 20 4b 49 4c 4c 20 |1640..12|00 KILL |
|00002910| 22 42 4d 45 4e 55 2e 54 | 4d 50 22 0d 0a 31 32 31 |"BMENU.T|MP"..121|
|00002920| 30 20 4f 4e 20 45 52 52 | 4f 52 20 47 4f 54 4f 20 |0 ON ERR|OR GOTO |
|00002930| 30 0d 0a 31 32 32 30 20 | 43 4c 53 0d 0a 31 32 33 |0..1220 |CLS..123|
|00002940| 30 20 46 49 4c 45 53 20 | 22 2a 2e 42 41 53 22 3a |0 FILES |"*.BAS":|
|00002950| 41 52 3d 30 0d 0a 31 32 | 34 30 20 50 52 49 4e 54 |AR=0..12|40 PRINT|
|00002960| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 20 22 52 65 |:PRINT:P|RINT "Re|
|00002970| 61 64 69 6e 67 20 66 69 | 6c 65 73 22 3a 50 52 49 |ading fi|les":PRI|
|00002980| 4e 54 0d 0a 31 32 35 30 | 20 46 4f 52 20 49 3d 31 |NT..1250| FOR I=1|
|00002990| 20 54 4f 20 31 31 33 0d | 0a 31 32 36 30 20 20 41 | TO 113.|.1260  A|
|000029a0| 52 52 41 59 24 28 49 29 | 3d 22 22 0d 0a 31 32 37 |RRAY$(I)|=""..127|
|000029b0| 30 20 4e 45 58 54 20 49 | 0d 0a 31 32 38 30 20 46 |0 NEXT I|..1280 F|
|000029c0| 4f 52 20 44 52 3d 31 20 | 54 4f 20 32 34 0d 0a 31 |OR DR=1 |TO 24..1|
|000029d0| 32 39 30 20 20 46 4f 52 | 20 44 43 3d 30 20 54 4f |290  FOR| DC=0 TO|
|000029e0| 20 36 35 20 53 54 45 50 | 20 31 33 0d 0a 31 33 30 | 65 STEP| 13..130|
|000029f0| 30 20 20 20 49 46 20 43 | 48 52 24 28 53 43 52 45 |0   IF C|HR$(SCRE|
|00002a00| 45 4e 28 44 52 2c 44 43 | 2b 31 29 29 20 3d 20 22 |EN(DR,DC|+1)) = "|
|00002a10| 20 22 20 54 48 45 4e 20 | 31 33 38 30 0d 0a 31 33 | " THEN |1380..13|
|00002a20| 31 30 20 20 20 41 52 3d | 41 52 2b 31 3a 49 46 20 |10   AR=|AR+1:IF |
|00002a30| 41 52 3d 31 31 33 20 54 | 48 45 4e 20 50 52 49 4e |AR=113 T|HEN PRIN|
|00002a40| 54 20 22 54 6f 20 6d 61 | 6e 79 20 66 69 6c 65 73 |T "To ma|ny files|
|00002a50| 22 3a 45 4e 44 0d 0a 31 | 33 32 30 20 20 20 46 4f |":END..1|320   FO|
|00002a60| 52 20 4c 3d 31 20 54 4f | 20 38 0d 0a 31 33 33 30 |R L=1 TO| 8..1330|
|00002a70| 20 20 20 20 41 52 52 41 | 59 24 28 41 52 29 3d 41 |    ARRA|Y$(AR)=A|
|00002a80| 52 52 41 59 24 28 41 52 | 29 2b 43 48 52 24 28 53 |RRAY$(AR|)+CHR$(S|
|00002a90| 43 52 45 45 4e 28 44 52 | 2c 44 43 2b 4c 29 29 0d |CREEN(DR|,DC+L)).|
|00002aa0| 0a 31 33 34 30 20 20 20 | 4e 45 58 54 20 4c 0d 0a |.1340   |NEXT L..|
|00002ab0| 31 33 35 30 20 20 4e 45 | 58 54 20 44 43 0d 0a 31 |1350  NE|XT DC..1|
|00002ac0| 33 36 30 20 4e 45 58 54 | 20 44 52 0d 0a 31 33 37 |360 NEXT| DR..137|
|00002ad0| 30 20 27 20 53 4f 52 54 | 0d 0a 31 33 38 30 20 43 |0 ' SORT|..1380 C|
|00002ae0| 4b 53 57 3d 31 0d 0a 31 | 33 39 30 20 50 52 49 4e |KSW=1..1|390 PRIN|
|00002af0| 54 20 22 53 6f 72 74 69 | 6e 67 20 69 6e 20 42 4d |T "Sorti|ng in BM|
|00002b00| 45 4e 55 2e 54 4d 50 22 | 3b 0d 0a 31 34 30 30 20 |ENU.TMP"|;..1400 |
|00002b10| 57 48 49 4c 45 20 43 4b | 53 57 3d 31 3a 43 4b 53 |WHILE CK|SW=1:CKS|
|00002b20| 57 3d 30 0d 0a 31 34 31 | 30 20 20 46 4f 52 20 49 |W=0..141|0  FOR I|
|00002b30| 3d 32 20 54 4f 20 41 52 | 0d 0a 31 34 32 30 20 20 |=2 TO AR|..1420  |
|00002b40| 20 49 46 20 41 52 52 41 | 59 24 28 49 2d 31 29 3e | IF ARRA|Y$(I-1)>|
|00002b50| 41 52 52 41 59 24 28 49 | 29 20 54 48 45 4e 20 43 |ARRAY$(I|) THEN C|
|00002b60| 4b 53 57 3d 31 3a 53 57 | 41 50 20 41 52 52 41 59 |KSW=1:SW|AP ARRAY|
|00002b70| 24 28 49 2d 31 29 2c 41 | 52 52 41 59 24 28 49 29 |$(I-1),A|RRAY$(I)|
|00002b80| 0d 0a 31 34 33 30 20 20 | 4e 45 58 54 20 49 0d 0a |..1430  |NEXT I..|
|00002b90| 31 34 34 30 20 57 45 4e | 44 0d 0a 31 34 35 30 20 |1440 WEN|D..1450 |
|00002ba0| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 54 4f 20 31 36 |ON ERROR| GOTO 16|
|00002bb0| 30 30 0d 0a 31 34 36 30 | 20 4f 50 45 4e 20 22 42 |00..1460| OPEN "B|
|00002bc0| 4d 45 4e 55 2e 54 4d 50 | 22 20 46 4f 52 20 4f 55 |MENU.TMP|" FOR OU|
|00002bd0| 54 50 55 54 20 41 53 20 | 23 31 0d 0a 31 34 37 30 |TPUT AS |#1..1470|
|00002be0| 20 4f 4e 20 45 52 52 4f | 52 20 47 4f 54 4f 20 30 | ON ERRO|R GOTO 0|
|00002bf0| 0d 0a 31 34 38 30 20 50 | 52 49 4e 54 20 23 31 2c |..1480 P|RINT #1,|
|00002c00| 22 35 30 30 20 27 42 45 | 47 49 4e 22 0d 0a 31 34 |"500 'BE|GIN"..14|
|00002c10| 39 30 20 46 4f 52 20 49 | 3d 31 20 54 4f 20 41 52 |90 FOR I|=1 TO AR|
|00002c20| 0d 0a 31 35 30 30 20 20 | 49 46 20 41 52 52 41 59 |..1500  |IF ARRAY|
|00002c30| 24 28 49 29 3d 22 22 20 | 54 48 45 4e 20 31 35 33 |$(I)="" |THEN 153|
|00002c40| 30 0d 0a 31 35 31 30 20 | 20 50 52 49 4e 54 20 23 |0..1510 | PRINT #|
|00002c50| 31 2c 53 54 52 24 28 49 | 2b 35 30 30 29 20 2b 20 |1,STR$(I|+500) + |
|00002c60| 22 20 41 52 52 41 59 24 | 28 22 20 2b 20 53 54 52 |" ARRAY$|(" + STR|
|00002c70| 24 28 49 29 20 2b 20 22 | 20 29 3d 22 20 2b 20 43 |$(I) + "| )=" + C|
|00002c80| 48 52 24 28 33 34 29 20 | 2b 20 41 52 52 41 59 24 |HR$(34) |+ ARRAY$|
|00002c90| 28 49 29 20 2b 20 43 48 | 52 24 28 33 34 29 0d 0a |(I) + CH|R$(34)..|
|00002ca0| 31 35 32 30 20 4e 45 58 | 54 20 49 0d 0a 31 35 33 |1520 NEX|T I..153|
|00002cb0| 30 20 50 52 49 4e 54 20 | 23 31 2c 22 39 39 39 20 |0 PRINT |#1,"999 |
|00002cc0| 27 45 4e 44 22 0d 0a 31 | 35 34 30 20 4f 4e 20 45 |'END"..1|540 ON E|
|00002cd0| 52 52 4f 52 20 47 4f 54 | 4f 20 31 36 35 30 0d 0a |RROR GOT|O 1650..|
|00002ce0| 31 35 35 30 20 43 4c 4f | 53 45 0d 0a 31 35 36 30 |1550 CLO|SE..1560|
|00002cf0| 20 43 48 41 49 4e 20 4d | 45 52 47 45 20 22 42 4d | CHAIN M|ERGE "BM|
|00002d00| 45 4e 55 2e 54 4d 50 22 | 2c 31 35 37 30 2c 41 4c |ENU.TMP"|,1570,AL|
|00002d10| 4c 2c 44 45 4c 45 54 45 | 20 35 30 30 2d 39 39 39 |L,DELETE| 500-999|
|00002d20| 0d 0a 31 35 37 30 20 4b | 49 4c 4c 20 22 42 4d 45 |..1570 K|ILL "BME|
|00002d30| 4e 55 2e 54 4d 50 22 0d | 0a 31 35 38 30 20 53 41 |NU.TMP".|.1580 SA|
|00002d40| 56 45 20 22 42 4d 45 4e | 55 44 0d 0a 31 35 39 30 |VE "BMEN|UD..1590|
|00002d50| 20 47 4f 54 4f 20 39 30 | 0d 0a 31 36 30 30 20 49 | GOTO 90|..1600 I|
|00002d60| 46 20 28 45 52 52 3d 37 | 30 29 20 41 4e 44 20 28 |F (ERR=7|0) AND (|
|00002d70| 45 52 4c 3d 31 34 36 30 | 29 20 54 48 45 4e 20 52 |ERL=1460|) THEN R|
|00002d80| 45 53 55 4d 45 20 31 36 | 31 30 20 45 4c 53 45 20 |ESUME 16|10 ELSE |
|00002d90| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 54 4f 20 30 0d |ON ERROR| GOTO 0.|
|00002da0| 0a 31 36 31 30 20 43 4c | 53 3a 50 52 49 4e 54 20 |.1610 CL|S:PRINT |
|00002db0| 22 54 68 65 20 64 69 73 | 6b 20 69 73 20 77 72 69 |"The dis|k is wri|
|00002dc0| 74 65 20 70 72 6f 74 65 | 63 74 65 64 21 22 0d 0a |te prote|cted!"..|
|00002dd0| 31 36 32 30 20 50 52 49 | 4e 54 20 22 52 65 6d 6f |1620 PRI|NT "Remo|
|00002de0| 76 65 20 74 61 62 20 61 | 6e 64 20 70 72 65 73 73 |ve tab a|nd press|
|00002df0| 20 46 31 30 20 6f 72 20 | 61 62 6f 72 74 20 74 68 | F10 or |abort th|
|00002e00| 65 20 70 72 6f 67 72 61 | 6d 2e 22 3a 50 52 49 4e |e progra|m.":PRIN|
|00002e10| 54 0d 0a 31 36 33 30 20 | 4b 45 59 20 4f 4e 3a 45 |T..1630 |KEY ON:E|
|00002e20| 4e 44 0d 0a 31 36 34 30 | 20 49 46 20 28 45 52 52 |ND..1640| IF (ERR|
|00002e30| 3d 35 33 29 20 41 4e 44 | 20 28 45 52 4c 3d 31 32 |=53) AND| (ERL=12|
|00002e40| 30 30 29 20 54 48 45 4e | 20 52 45 53 55 4d 45 20 |00) THEN| RESUME |
|00002e50| 4e 45 58 54 20 45 4c 53 | 45 20 4f 4e 20 45 52 52 |NEXT ELS|E ON ERR|
|00002e60| 4f 52 20 47 4f 54 4f 20 | 30 0d 0a 31 36 35 30 20 |OR GOTO |0..1650 |
|00002e70| 49 46 20 28 45 52 52 3d | 35 29 20 41 4e 44 20 28 |IF (ERR=|5) AND (|
|00002e80| 45 52 4c 3d 31 35 36 30 | 29 20 54 48 45 4e 20 52 |ERL=1560|) THEN R|
|00002e90| 45 53 55 4d 45 20 31 36 | 36 30 20 45 4c 53 45 20 |ESUME 16|60 ELSE |
|00002ea0| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 54 4f 20 30 0d |ON ERROR| GOTO 0.|
|00002eb0| 0a 31 36 36 30 20 4f 4e | 20 45 52 52 4f 52 20 47 |.1660 ON| ERROR G|
|00002ec0| 4f 54 4f 20 30 3a 43 48 | 41 49 4e 20 4d 45 52 47 |OTO 0:CH|AIN MERG|
|00002ed0| 45 20 22 42 4d 45 4e 55 | 2e 54 4d 50 22 2c 31 35 |E "BMENU|.TMP",15|
|00002ee0| 37 30 2c 41 4c 4c 3a 47 | 4f 54 4f 20 31 35 37 30 |70,ALL:G|OTO 1570|
|00002ef0| 0d 0a 1a 28 45 52 52 3d | 35 29 20 41 4e 44 20 28 |...(ERR=|5) AND (|
|00002f00| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f10| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f20| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f30| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002f70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+